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Software-Reviews 


Turbo Pascal, welches als bester 


für IBM PC und Kompatible 


Pascal Compiler des Marktes 


angesehen wird, ist nun endlich auch in Deutschland lieferbar. 


Was ist Pascal 


| ist eine moderne Programmier- 
che. die von einem Schweizer Pro- 
»r entwickelt und nach Blaise 
Pascal benannt wurde. 

Pascal gilt als Lehrsprache für das 
strukturierte Programmieren und 'st 
heute aus der Großcomputer-EDV 
nicht mehr wegzudenken. Aber auch 


auf dem PC-Sektor erkämpft sich 
Pascal langsam einen Namen, da es 
wesentlich schneller und benutzer- 


freundlicher als das veraltete Basic ist. 
In Schulen gilt Pascal als Standard des 
Informatik Unterrichts. Nun ist diese 
Sprache auf für Ihren IBM zu 
erhalten. 


Was sind die Vorteile 
von Pascal 


Pascal hat wesentlich leistungsfähigere 
Programmstrukturen als Basic. Dies 
hilft dabei. klarund übersichtliche Pro- 
gramme zu erstellen und unterstützt in 
direkter Weise die strukturierte Pro- 
grammierung. Dadurch das Variablen 
lokal und global definiert werden 
können. treten die häufigsten Program- 
mierfehler gar nicht erst auf. Genauso 
komplex wie die Programme ist auch 
die Datenstruktur. 

Neben den gewohnten Arten der REAL. 
CHAR. BOOLEAN. INTEGER und 
Kontrollvariablen, gibt es in Pascal die 
speicheroptimierten Felder (PACKED 
ARRAY). die einfachen Datenfelder 
(ARRAY). die mathematischen Daten- 
miengen (SEI ).die Zeichenkettendaten 
(STRING). die freien Datensätze 
(RECORD). die Hauptdateien (FILE) 
und die Zeiger (POINTER). Da sich 
diese Dateien untereinander voll kom- 
binieren lassen. werden Programme 
extrem schnell, und auch für Anfänger 
leicht zu erstellen. 

Sie sehen. das PASCAL durchaus nicht 
nur eine weitere Programmiersprache 
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ist. die man nie verwenden kann. son- 
dern ein leistungsfähiges Werkzeug. das 
ihnen hilft. eigene Programme besser 
zu erstellen als bisher. 


. 
Der Compiler 
Hauptnachteil von PASCAL Systemen 
besteht immer noch darin. daß 
Interpreter-Versionen Unmengen von 
Speicherplatz brauchen. und zumeist 
sehr teuer sind. Deshalb sind die mei- 
sten auf dem Markt erhältlichen Pro- 
gramme COMPILER und LINKER. 
Die Vorgehensweise bei der Arbeit mit 
einem Compiler ist die, daß man zuerst 
mit einem Editor einen Quelltext in 
Pascal schreibt und ihn dann nachher 
mit dem Compiler in Maschinen- 
sprache übersetzt. 
Einzelne Programmteile werden in ver- 
schiedene Maschinenprogramme ver- 
wandelt und danach mit einem 
LINKER in ein einziges MC-Pro- 
gramm übersetzt. 
Das hört sich für den Anfänger kompli- 
ziert und abschreckend an, ist es aber 
nicht, weil dieCompilation und Linke- 
rung vom Pascal Operator selbsttätig 
ausgeführt wird und man so gut wie 
nichts dabei verkehrt machen kann. 
Der eindeutige Vorteil dieser Vor- 
gehensweise liegt in der Verarbeitungs- 
geschwindigkeit des fertigen Haupt- 
programms. 
Der große Nachteil ist jedoch. daß das 
Arbeiten von Compiler und Linker, 
welches sehr komplex° Vorgänge sind. 
ziemlich langwierige Akuonen sind. 
Dieser Nachteil hält viele Leute davon 
ab. sich einen Pasc ıl-Compiler zu kau- 
fen und zu warten, bis preiswerte Inter- 
preter zu bekommen sind. 


Der Super-Compiler 


Dies soll jetzt alles anders werden. 
Seit einiger Zeit bietet die Firma 
Heimsoeth Software einen Pascal- 


Compiler für den IBM PC an, der laut 


Werbung so schnell wie ein Interpreter 
sein soll und das zum Preis von 

198.- DM!!!. 

Der erste Eindruck nach Lesen dieser 
Anzeige ist der Gedanke an Hochsta- 
pelei. hat man das Produkt spaßeshal- 
ber jedoch mal bestellt und eingeladen. 
wird man rasch “eines besseren 
belehrt. 

Die Verarbeitun 


geschwindigkeit der 
zum Turbo-Pascal gehörigen (SP) 

SPEED PROGRAMMING PACKAGE 
welche einen Quelltext in 3 Durchgän- 
gen übersetzt. ist enorm. Lange Warte- 
zeiten auf Testversionen entfallen hier- 
bei. womit der Hauptmanko eines 


Pascal-Compilers schon einmal 
entfällt. 
Desweiteren fällt der unheimlich 


große Befehlsvorrat des Turbo Pascal 
auf. 

Die Arbeit mit diesem extrem leistungs- 
fähigen Werkzeug hat mich innerhalb 
kürzester Zeit zum Pascal-Fan ge- 
macht. und ich möchte dieser Erweite- 
rung meines IBM nicht mehr missen. 
Damit dieser Spaß nicht nur IBM- 
Besitzern vorenthalten wird. hat 
HEIMSOETH auch noch gleich Ver- 
sionen für CP/M-Rechner (APPL 
OSBORNE u.a.) auf den Markt 
gebracht und bietet dazu noch eine 
TOOLBOX. die das Arbeiten mit dem 
Programm noch leichter und einfacher 
macht. als es ohnehin ist. 


Fazit: 

Wer auf seinem Computer. den er ein- 
mal für teures Geld gekauft hat. über 
seine Programmierversuche in Basic hin- 
auswachsen möchte und klar und 
strukturiert schreiben will, der muß ent- 
weder ein Genie im Umgang mit Ma- 
schinensprache sein oder er kommt an 
diesem Programm nicht vorbei. 

Seit langer Zeit das beste was Sie vom 
Preisformat und dem Leistungsange- 
bot her, für Ihren PC bekommen 
können. 


(tm) 
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Software von Dynamics für den 
Commodore C-64 


Der große Hamburger-Software- und 
Zubehör-Anbieter Dynamics Marketing 
GmbH stellt neue, attraktive Spiele- 
Software vor. 

Action-reiche, schnelle Spiele, mit guter 
Grafik, für den Commodore C-64. 

Die Software wird angeboten auf Cas- 
sette und teilweise auch auf Diskette. 
Neu bei den Spielprogrammen auf Kas- 
sette ist die Turboladung. Mit diesem 
schnellade Verfahren verkürzt sich die 
Ladezeit der Kassette auf2 Minuten. Ge- 
steuert wird der Turbo-Lader über ein zu- 
sätzliches Programm, das auch einen i N 
 TRnE are 1 UDITTDTEDTUITI NIE 


In einem Raumschiff der Forschungs- 

gruppe Erde sind Sie in ein feindliches 

Gebiet des Planeten TRIAD gekom- 

men. Sofort werden Sie von den Triads 

und ihren Energiestrahlen angegriffen. 

Kämpfen Sie sich Ihren Weg durch die 

Gefahrenzone. 

Ein Programm auf Kassette, Dynamics stellt deutsche 

empf. Verbraucherpreis: 19.95 DM Software-Entwicklung vor: ÄHIGHWAY DUELE für den Atarıny 


Mit dem Spiel-Programm "Highway- 
nn in. Duell” für den Atari 400/800 und die 
ul) Il I INNEN KR XL-Modelle präsentiert der große 

M N II . Hamburger Homecomputer-Software- 
und Zubehör-Anbieter eine rein deut- 
sche Software-Entwicklung. 

Die beiden Münsteraner Abiturienten 
Jıuian Reschke und Andreas Wiethoff 
programmierten dieses Autorennen in 
Maschinensprache unter Anleitung 
von Experten. Vorabmuster wurden 
von Kindern und Jugendlichen auf 
Schwierigkeiten und Spielwitz geprüft. 
! Emm \ Bis zur Fertigstellung aes Programms 
! N i WALH | und der Produktion miteinem kaum zu 
LU \ N sn " ! Mm \ "knackenden” Kopierschutz verging 
I IN | | | | | | Ill fast ein halbes Jahr. 

TEN h 


Baar 


”HIGHWAY DUELL” 

Ein Spannendes Spiel für den Atari- 
Computer. 

In einem schwierigen Straßenrennen 
mit ausgezeichneter Grafik kämpfen 
Sie gegen Ihren Mitsnieler oder den 
Computer um den Sieg. Baustellen 
müssen langsam passıert werden, Hin- 
dernisfahrzeugen ausgewichen wer- 
den. Kleine, benzinfressende Wesen, 
zwingen zum Tankaufenthalt. Wer 
wird Siegen? 

Programm auf Diskette erhältlich. 
Empfohlener Verbraucherpreis: 

69.- DM 
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Zur Hifivideo-Show 84 in 
Düsseldorf zeigte die Firma 
Tonacord das Btx-64-Modul. 
Es h. .\delt sich um ein ganz 
neue Zubehör für Commo- 
dore 64 Besitzer, die damit 
auch ihren Homecomputer 
an einen Btx-Fernseher an- 
schließen können. 


Der Preis liegt bei nur DM 
248.- unverbl. Preisempfeh- 
lung und zielt daher speziell 
auf den privaten Anwender. x 
Der Vertrieb erfolgt über den 
Fachhandel und Computer- 
ring. Ringstr. 70, 2300 Kiel. 


L : popularen Computer- 
Hacker werden immer akti- 


ver in den Electronic-Mail- | 


Systemen der Fachhändler, 
die hierfür speziell ein Da- 
tenbanksystem für Aku- 
stikkoppler 300 Bd. ein- 
gerichtethaben. Es existieren 
ungefähr schon 20 freie je- 
derzeit zugängliche Daten- 
banken, fürdieTonacordmit 
dem Computerring einen 
Software-Pflege-Vertrag an- 
bietet. Die Datenbanken 
werden schneller und umfang- 
reicher. So können Erfah- 
rungen zu Fabrikaten und 
Softwarelieferanten unterein- 
ander ausgetauscht werden. 
Firmen steuern damit den 
Außendienst und Projekt- 
gruppen können über große 
Entfernungen zu schnelle- 
ren Ergebnissen kommen. 


Den Bösewichten an den Kragen 


Bundesverband Computer Software gegründet 


Rechtzeitig vor Beginn der Hi- 
fivideo 1984 konstituierte sich 
am 21.8. in Düsseldorf der 
Bundesverband Computer 
Software, die Vereinigung der 
Computer-Software-Herstel- 
ler Deutschlands. 


Vordringlichste Aufgabe des 
Verbandes wird die Auf- 
nahme der organisierten Be- 
kämpfung der Computer- 
Programm-Piraterie sein. 


“ats 


Möglichkeiten und technische 

Erläuterungen: 

- Häufige Befehlsfolgen 
(automatische Anmeldung 
im System, Auslesen des ei- 
genen Briefkastens etc.) 
können als Job-Ketten ge- 
speichert werden. 

-Abspeichern und Laden 
beliebiger Btx-Seiten des 
CEPT-Standards auf5.25”- 
Niinidiskette über Floppy- 
disk Commodore 1541 


Btx-Modul ai Electronic-Mail 


wer 


- Möglichkeit eigene Seiten 
zu erstellen mit der CEPT- 
Blockgrafik 

- Demo-Betrieb: perma- 
nentes Laden und Darstel- 
len von auf Diskette ge- 
speicherten Btx-Seiten im 
Endlosbetrieb 

- Anschlußfertiges 
für C-64 ohne 
Stromversorgung 


Modul 


externe 


Schlechte Zeiten für Raubkopierer 


Bekanntlich haben Raubko- 
pierer der noch jungen Indu- 
striein den vergangenen Jah- 
ren weltweit Schaden in Mil- 
liardenhöhe zugefügt. 


Die Grundlage für die Be- 
kämpfung wird der Bundes- 
verband Computer Software 
durch Anregung für eine ent- 
sprechende Rechtsgrund- 
lage schaffen. Dazu gehört 
die Klärung der noch immer 


offenen Rechtsfragen bezüg- 
!ich des Computer-Programm- 
Urheberrechtsschutzes. 


Neben der Wahrung und 
Sicherung der in der Satzung 
verankerten gemeinsamen In- 
teressen. sieht der Verband 
eıne wichtige Aufgabe in der 
Entmystifizierung des Com- 
puters und wird entspre- 
chende Öffentlichkeits- 
arbeit leisten. um den Stel- 


- Zwei ladbare Tastaturbele- 
gungen: original Commo- 
dore(*) (ohne Umlaute und 
Loewe Standard. der dann 
deutsche Umlaute enthält) 

- Vollständiger Ersatz einer 
Btx-Eingabetastatur 
(Loewe + Philips) 

- Anschließbar an beliebige 
Loewe Geräte mit CEPT- 
Dekoder 


lenwert des Computers in der 
Gesellschaft zu  verdeut- 
lichen. Die Förderung und 
Entwicklung neuer Softwa- 
re-Technologien ist weiteres 
Anliegen der Software- 
Hersteller. 


Die zwölf Gründungsmit- 
glieder (AriolaSoft. Atari 
Elektronik, Commodore Bü- 
romaschinen GmbH, Data- 
Media. Hansesoft, Markt + 
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Technik, Roeske Verlag, 
Pecker Software, Thorn 
EMI. VideoMagic, Strecker 
Elektronik sowie der Wester- 
mann Schulbuchverlag) 
wählten Harald Speyer (44), 
Vorsitzender der Geschäfts- 
führung der Commodore 
Büromaschinen GmbH und 
Vice President der Commo- 
dore International Ltd.. ver- 
treten durch Heinz-Joachim 
Kröber (36) zum 1. Vorsitzen- 
den des Verbandes. Peter 
Knippel (33), designierter 
Geschäftsführer der Ario- 
laSoft GmbH München 
wurde zum 2. Vorsitzenden 
gewählt. 


Neben den Firmen, die 
spontan die Bereitschaft zur 
Gründung des Verbandes er- 
klärten, waren allenamhaften 
Anbieter in Düsseldorf ver- 
treten. Die Häuser Apple. 
Epson. Hewlett Packard. 
Acorn Computer GmbH. Di- 
gital Eyuipment, Microsoft 


und der Otto Maier Verlag 
Ravensburg sowie die Viel- 
zahl junger mittelständi- 
scher Anbieter, werden dem 
Verband voraussichtlich 
nach entsprechender Prü- 
fung durch die Geschäfts- 
leitungen ebenfalls beitre- 
ten. 

Sitz des Verbandes i. Gr. ist 
Hamburg. Die im Bundes- 
verband Computer Software 
vertretenen Firmen beschlos- 
sen, im Anschluß an die Hi- 
fivideo 1984 Gespräche mit 
dem Bundesverband Video 
zur Koordinierung der Akti- 
vitäten gegen Tendenzen 
einer nicht notwendigen Ver- 
schärfung des Jugendschut- 
zes aufzunehmen, in der be- 
sonders die Hersteller und 
Importeure von Game-Soft- 
ware eine Gefahrsehen. Eine 
enge Zusammenarbeit mit 
der IFBI, die bei der Grün- 
dungsversammlung als Gast 
zugegen war, ist darüber hin- 
aus vorgesehen. 


Sinclair: 
Verstärkte Werbe- und 


Verkaufsförderungskampagne 


Sinclair Research Ltd. 
Branch Office Bad Hom- 
burg, realisiert in diesem 
Herbst in der Bundesrepu- 
blik Deutschland eine um- 
fangreiche Werbe- und 
Verkaufsförderungskampagne. 
Der mehrere Millionen- 
DM-Etat, der erstmals auch 
Rundfunkspots einschließt, 
soll in erster Linie die Basis 
für den Absatz des Sinclair 
Homecomputers, ZX-Spec- 
trum, verbreiten. Darüber hin- 
aus soll die Kampagne auch 
den neuen 32-Bit Personal 
Computer, Sinclair QL, be- 
kannt machen. 

Im Rahmen der breit ange- 
legten Verkaufs- und Werbe- 
strategie erhält der Käufer 
seinen Spectrum 16K mit 
sechs Spielkassetten in- 
klusive. Beim Erwerb eines 
Spectrum 48K gibt es acht 
Spiele inklusive. 

Dieses Geschenkpaket, das 
als Eröffnungspaket der 
deutschen Sinclair-Tochter 
an den Handel und Endver- 
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braucher gedacht ist, wird ab 
September erhältlich sein. 


Das Unternehmen Sinclair 
Research, das bisher in der 
Bundesrepublik Deutsch- 
land ausschließlich mit ei- 
nem Generalimporteur in 
Ottobrunn vertreten war, 
wird seine Verkaufs- und 
Werbeaktivitäten überregio- 
nal verstärken. Über die be- 
reits traditionellen Ab- 
satzkanäle hinaus, die Kauf- 
und Warenhäuser sowie 
Verbrauchermärkte, will Sin- 
clair den Verkauf seiner Com- 
puter über den Schreibpa- 
pier- und Bürowaren-Einzel- 
handel, Foto-, Kino-, Optik- 
Geschäfte sowie den Video-, 
Radio- und Fernsehhandel 
forcieren. Neue Distri- 
butionswege beschreitet Sin- 
clair mit dem Sortiments- 
buchhandel sowie dem 
Spielwaren- und Bastlerbe- 
darfshandel. 
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Ashton-Tate und Vieweg 
beginnen Partnerschaft 


ugs" 


Ashton-Tate, einer der fünf 
führenden unabhängigen 
Software-Hersteller, ko- 
operiert ab sofort mit dem 
Vieweg-Verlag. 


Als Georg Büchler, Ge- 
schäftsführer der deutschen 
Niederlassung von Ashton- 
Tate, voreinigen Wochen die 
Gründung der Ashton-Tate 
GmbH Frankfurt bekannt- 
gab, nannte er als einen 
Schwerpunkt der zukünftigen 
Arbeit die Herausgabe von 
Fachbüchern für den deut- 
schen Markt. Die Überle- 
gungen, mit verschiedenen 
Fachverlagen zu kooperie- 
ren, konzentrierten sich auf 
den Plan, mit einem am 
Markt eingeführten und er- 
folgreich arbeitenden Fach- 
verlag Bücher zu Ashton- 
Tate-Produkten herauszuge- 
ben. Es entstand ein Kontakt 
zum Verlag Vieweg, der zur 
Ausweitung seines EDV- 
Buch- und Zeitschriftenpro- 
gramms einen bedeutenden, 
großen Software-Hersteller 
als Partner suchte. 


Der amerikanische Software- 
Verlag Ashton-Tate ist welt- 
weit bekannt vor allen Din- 
gen durch die Produkte 
dBASE I, ‚Friday! und 
Runtime. Die Hauptaufgabe 
der deutschen GmbH ist - 
neben vertrieblichen Akti- 
vitäten - die Betreuung der 
mittlerweile mehrere 10.000 
zählenden dBASE II-An- 
wender durch intensive Un- 
terstützung der Fachhandels- 
Organisation, über die Ashton- 
Tate vermarktet. Diese soll 


vorrangig mit der bereits am 
Markt eingeführten Soft- 
ware, aber auch mit den 
neuen FRAMEWORK, 
CHECKMATE und dBASE 
II erzielt werden. 


Die Friedr. Vieweg & Sohn 
Verlags GmbH, Braunschweig, 
Wiesbaden ist mit den 
Programmschwerpunkten 

Mathematik, Naturwissen- 
schaften und Technik, Archi- 
tektur/Bauwesen und Medi- 
zin im deutschen, aber auch 
im internationalen Markt, 
tätig. Zunächst als Ergän- 
zung zu diesen Arbeitsge- 
bieten, inzwischen aber in ei- 
nem eigenen Programm- 
bereich, verlegt der Verlag 
Vieweg Bücher zu EDV- 
Hard- und Software für Ein- 
steiger und Anwender in 
Ausbildung und beruflicher 
Praxis. Zu den anderen Un- 
ternehmen der Bertelsmann- 
Gruppe, die im Computer- 
markt arbeiten, gibt es in- 
tensive Kontakte. Dr. Frank 
Lube, verantwortlich für die 
Fachbuchverlage der Ver- 
lagsgruppe Bertelsmann, 
verspricht sich von der Ko- 
operation Ashton-Tate/Vieweg 
einen Synergie-Effekt, von 
dem nicht nur die beiden 
Partner profitieren werden, 


. sondern auch der Leser der 


gemeinsam herausgegebenen 
Bücher. Buchprojekte wer- 
den gemeinschaftlich ent- 
wickelt und konzipiert, unter 
anderem durch den ständi- 
gen intensiven Kontakt der 
Partner in Hinblick auf 
aktuelle Entwicklungen. 
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Qume baut auf den Fachhandel 


An die großen Erfolge im Be-. 


reich der kommerziellen 
Text- und  Datenverar- 
beitung anknüpfend. enga- 
giert sich Qume, Tochter der 
ITT und Marktführer für 
professionelle  Typenrad- 
drucker, jetzt auch im stark 
expandierenden Micro- 
Markt. Erstmals soll der‘Let- 
ter Pro 20", jüngstes "Kind' 
der Qume-Produktpalette. 
nicht nur über Distributoren 
und OEM's, sondern auch 
über den qualifizierten 
Fachhandel vertrieben wer- 
den. 

Möglich macht's der gün- 
stige Preis: obwohl es sich bei 
dem kompakten Schön- 
schreibdrucker um ein voll- 
professionelles Gerät i 
währter Qume-Qualitä 

delt. liegt der empfohlene 


Verkaufspreis nur 
über 2.000 Mark. 
Der ‘Letter Pro 20° druckt mit 
einer echten’ Geschwindig- 
keit von mehr als 20 Zeichen 
pro Sekunde. die nach dem 
praxisnahen Shannon-Test 
ermittelt wurde. Dabei gilt es 
nicht nur, endlose Kolonnen 
eines einzelnen Buchsta- 
bens. sondern praxisnahe 
Kombinationen zu drucken. 
Eingebaute Interfaces erlau- 
ben dem ‘Letter Pro 20° rei- 
bungslose Kommunikation 
mit (fast) allen gängigen 
Personal Computern. Drei 
Schnittstellen sind ab Lager 
lieferbar: Centronics paral- 
lel. RS 232 serial (V-24) und 
Qume 3. 

Sämtliche 96-Speichen-Ty- 
penräder aus dem Qume- 
Programm (zur Zeit sind es 


knapp 


Interessantes und 
Bemerkenswertes 


Wie Spectrumbesitzer sicher wissen, bringt die 
Z-80 CPU des Spectrums etwa 875.000 Rechen- 
operationen pro Sekunde. Würde ein Mensch die 
gleiche Anzahl von Rechnungen ausführen wollen 
und er wäre in der Lage, alle 25 Sekunden Rech- 
nungen zu erledigen, so bräuchte er: 

1 Rechnung = 25 Sekunden 

4 Rechnungen = I Minute 

240 Rechnungen = 60 Minuten = 1 Stunde 
1920 Rechnungen = 8 Stunden = I Tag 

9600 Rechnungen = 5 Tage = I Woche 

499200 Rechnungen = 52 Wochen = I Jahr 

1 Jahr, 39 Wochen, 5 Stunden, 50 Minuten 


Er würde also fast 2 Jahre daran arbeiten. 


Erstaunlich, nicht wahr? 
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über 120) lassen sich unver- 
ändert einsetzen. ebenso die 
bewährten Multistrike-Farb- 
kassetten. Neben zahlrei- 
chen nationalen Zeicher 

zen gibt es auch Typenräder 
für technisch-wissenschaft- 
liche Anwendungen oder be- 
sonders harmonische Pro- 
portionalschriften. Ein bi- 
direktionaler Formulartrak- 
tor. eine preiswerte Pa- 
piereinzugshilfe und ein 
mechanischer Einzelblatt- 
einzug ermöglichen «den 
Ausbau zum komfortablen 
Drucksystem. 

Beliefert werden sollen die 
Computer-Händler über die 
etablierten Distributoren im 
gesamten Bundesgebiet. die 
bei Bedarf auch Service und 
Wartung übernehmen. 


Das erste Computer-Zen- 
trum Asiens wird im Septem- 
ber in Hong Kong eröffnet. 
Auf einer Fläche von rund 
6000 qm werden ständige 
Informations- und Verkaufs- 
ausstellungen einen Über- 
blick über internationale 
Neuentwicklungen aus aller 
W:lt der elektronischen Da- 
tenverarbeitung geben - vom 
N ini-Heimcomputer bis zur 
multinational operierenden 
Großanlage. 

Vom Kauf über Miete- oder 
Leasing bis zur Basis 


Jugend forscht 
1985 


Der 20. Wettbewerb von Ju- 
gend forscht steht unmittel- 
bar bevor. Sei kein Frosch. 
macht mit heißt das diesjäh- 
rige Motto. Wie immer, sind 
Einfallsreichtum und Origi- 
nalität gefragt. Wer Lust hat. 
naturwissenschaftliche Zu- 
sammenhänge zu erkennen 
und seine Umwelt genauer 
zu beleuchten, der sollte auf 
jeden Fall mit machen. 
Jungen und Mädchen bis 22 
Jahre sind teilnchmeberech- 

t. Die Wettbewerbssparte 
"Schüler experimentieren” 
gilt für die unter 16-jährigen. 
Man kann entweder allein 
seine Forschungen  betrei- 
ben. oder in einer Gruppe bis 
zu 3 Teilnehmern. 
Das Thema ist frei. esmuß le- 
diglich in die Fachgebiete 
Biologie. Chemie. Geo- und 
Raumwissenschaft. Mathe- 
matik/Informatik. Physik. 
Technik oder zum Sonder- 
preisthema Arbeitswelt pas- 
sen. 
Anmeldeschluß ist der 30. 
November 1984. 
Info: 
Stiftung Jugend forscht e.V. 
Notkestraße 31. 
2 Hamburg 52 
Zu gewinnen sind Geld- 
preise. Studienreisen und 
-Aufenthalte im Werte von 
DM 100.000.- 

(sr) 


mation und Schulung soll 
dem interessierten  Ver- 
braucher im "Asian Com- 
puter Plaza” (gelegen im Sil- 
vercord Building an der 
Canton Road im Stadtteil 
Tsimshatsui) alles geboten 
werden. Die Räumlichkeiten 
erlauben zukünftig regel- 
mäßige Seminare, die die 
verschiedensten Aspekte der 
Computer-Technologie be- 
handeln werden. Das Zen- 
trum wird täglich (auch 
Sonntags) von 10 bis 20 Uhr 
geöffnet sein. 
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Joystick ohne 
Verbindungskabel | 


Die englische Firma 
Cheetah präsentierte den er- 
sten kabellosen Jovstick. den 
Remote Action Transmitter. 
Das System basiert auf In- 
frarotstrahlen. die zu einem 
Controller gesendet werden. 
der in den Expansionsport 
des Computers gesteckt wird. 
Für den ZX Spectrum ist der 
RAT bereits zu haben. für 
andere Systeme ist er eben- 
falls vorgesehen. 

Der kabellose Joystick rea- 
giert bis zu einer Entfernung 
von ca. lm zum Computer 
und kostet in England £30. 
Da er auch mit vielen Soft- 
wareprogrammen (z.B. Sa- 
bre Wulf, Atic Atac) kom- 
patibel ist. wird sich diese 
Form der Joysticks wohl 
durchsetzen können. 


(sr) 
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Ein 8 Zoll-System macht 
derzeit von sich reden: 8- 
Zoll-Disk-Controller von 
der Firma TEACH in 7257 
Ditzingen entwickelt. 


Durch den zunehmenden 
Einsatz der IBM Personal- 
Computer in Unternehmen 
mit einer Großrechenanlage 
stellt sich immer häufiger das 
Problem Daten. die auf dem 
Host-Rechner erzeugt wur- 
den. zur weiteren Verar- 
beitung Personal-Computer 
zu übernehmen, ebenso die 
Datenübernahme vom PC 
an den Großrechner ist 
sicherlich ebenso häufig. 


Für die On-Line Verbindung 
werden schon die verschie- 
densten Lösungen ange- 
boten, die den oben ge- 
nannten Zweck erfüllen. 
Eine -Rechnerkopplung ist 
technisch sehr aufwendig 
und im dauernden Betrieb 
sehr kostenintensiv. 


Das 8-Zoll-System kann eben- 
falls mit dem IBM PC/XT 
betrieben werden. Durch die 
Möglichkeit die Laufwerke 
unter PC-DOS anzu- 
sprechen. stellt das System 
zusätzlich eine komfortable 
Datensicherung für die Fest- 
platte dar. Speicherkapazität 
ca. 12 MB. 


Sony und Ravensburger kooperieren 


bei “Edutainment” - MSX- Software 


HiFiVideo: Einen  Koo- 
perationsvertrag im Bereich 
“Edutainment” für Home- 
computer-Software nach 
dem MSX-Standard (Micro- 
soft Extended Basic) werden 
der Otto Meier Verlag. Ra- 
vensburg. und die Sony 
Deutschland GmbH. Köln 
abschließen. "Edutain- 
ment”. eine Zusammenset- 
zung aus “education” und 
"entertainment" ist der neue 
Sammelbegriff für "educatio- 
nal software”. die auf Basis 
des Fachwissens des an- 
gesehenen Verlages von den 
beiden Firmen gemeinsam 
entwickelt werden soll. Dem 
Angebot an spielerischen 
Lernprogrammen dürfte brei- 
tes Interesse sicher sein. denn 
Computerprogramme mit 
Nutzen und Lehrcharakter 
finden im Markt steigende 
Aufmerksamkeit. Im Geräte- 
bereich zeichnet sich mit 
dem internationalen MSX- 
Standard auf dem bisher un- 
übersichtichen Homecompu- 
ter-Markt eine Systemver- 


einheitlichungab.da sich die 
bedeutensten Firmen der 
Unterhaltungs- und Com- 
puterelektronik dem MSX- 
Standard angeschlossen ha- 
ben. 


Im einzelnen wurde beschlos- 
sen. die Zusammenarbeit bei- 
der Firmen auf der Ver- 
packung deutlich zu machen. 
gemeinsame Werbung und 
Öffentlichkeitsarbeit zu be- 
treiben und die Lernpro- 
gramme jeweils exklusiv 
über den Fachhandel der 
Bundesrepublik zu vertrei- 
ben. Eine Ausdehnung des 
Vertriebs auf Österreich und 
Schweiz über die dortigen 
Sony-Niederlassungen ist 
geplant. Ein regelmäßiger In- 
formationsaustausch soll die 
frühzeitige Erkennung von 
Trend sowohl im Geräte- als 
auch im Datenträgerbereich 
sicherstellen. Sony gibt Ra- 
vensburger voll entwicklungs- 
technische Untersützung 
bis hin zu Daten-Endgerä- 
ten. 


Marktinfo 


Der Preis für 8-Zoll-Control- 
ler-Board. Software und | 
Laufwerk liegt bei ca. 6.300.- 
DM. 


Das 8-Zoll-System umfaßt 
Controller (belegt eir Steck- 
platz im PC mit Treibersoft- 
ware) und ein 8-Zoll-Lauf- 
werk. 


Einsatzmöglichkeiten: 

- Basisdatentausch IBM PC/ 
XT (+) IBM 3740-Dis- 
ketten 

- Datensicherung für die Fest- 
platte beim IBM-PC/XT 

- Vergrößerung des Spei- 
chervolumens bis zu 2 


MB 


Stichwort: UNIX 
OS-BASIC jetzt 


ganz C 


Um dem Anspruch der Kom- 
patibilität im Bereich UNIX 
noch besser gerecht zu wer- 
den. wurden die noch in 
Pascal gehaltenen Teile des 
Compilers und des Binders 
ganz in die Sprache C um- 
gesetzt. Dies war notwendig, 
da die aufden verschiedenen 
UNIX-Systemen angebote- 
nen Pascal-Compiler ein 
recht unterschie"iches Lei- 
stungsspektrum aufweisen. 


Die Umsetzung erfolgte zu 
ca. 60% durch ein Konvertier- 
programm. Die restlichen 
Arbeiten mußten manuell 
durchgeführt werden, da be- 
stimmte Pascaleigen- 
schaften sich nicht in C dar- 
stellen lassen. Die Umset- 
zung wurde in bewährter 
Weise unter Leitung des 
Herrn Prof. Dr. Frick von 
der Fachhochschule Reut- 
lingen durchgeführt. Als Ne- 
beneffekt ist außerdem ein 
noch besseres Laufzeitver- 
halten erreicht worden. 
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Die zuverlässige Sicherung für unersetzliche Daten 


TANDBERG DATA QIC-STOR 


Wer größte Datenmengen re- 
gelmäßig von Diskette auf 
Diskette sichern muß, wird 
damit auf Dauer wenig Freu- 
de haben. Und Sicherungüber 
Plattenlaufwerke bringt an- 
dere spezifische Probleme 
mit sich - nicht zuletzt hohe 
Kosten und fehlende Stan- 
dards. Daher bot sich eine 
Lösung ähnlich der in der 
EDV eingesetzten Magnet- 
bandtechnik an: Das Mag- 
netband-Kassetten-Laufwerk. 
TANDBERG DATA. in der 
Vergangenheit ein erfahrener 
Profi auf dem Magnetband- 
und Hifi-Sektor. war feder- 
führend an der Entwicklung 
einer standardisierten 1/4- 
Zoll Magnetband-Kassette be- 
teiligt. Die QIC-STOR-Kas- 


settenlaufwerke der Modell- 
reihe TDC 3200/3300 bieten 
je nach 4- oder 9-spuriger 
Aufzeichnungstechnik die 
beachtliche Kapazität von 
bis zu 60 MB Daten, bei Auf- 
zeichnung im Streaming-Ver- 
fahren. Damit lassen sich glei- 
chermaßen die Bestände von 
Personal-Computern wie 
auch größere Datenmengen 
von Terminalstationen ko- 
stensparender als bisher si- 
chern. Das Risiko fehlerhaft 
zurückgespielter oder ver- 
lorener Daten vermeiden 
hochwertige Aufzeichnungs- 
und Prüftechniken. 

Mit QIC-STOR TDC 3200/ 
3300 von TANDBERG DATA 
sind Ihr Daten wirklich si- 
cher. 


Die Einsteiger-Modelle für Schüler und Studenten 


LASER 210, 8 KByte RAM, 


erweiterbar um 16 oder 64 KByte, 

8 Farben, Programmsprache BASIC. 

LASER 310 mit gleicher Ausstattung wie Laser 210, 
aber 18 KByte RAM und mit Schreibmaschinen-Tastatur. 
Floppy Disk Controller für 2 Laufwerke 

mit LASER-DOS, Speicherkapazität 80 KByte. 


Generalimporteur: SANYO VIDEO Vertrieb GmbH &Co. 
Lange Reihe 29, D-2000 Hamburg 1, Tel. 040/2801045-49 


10 CPU 


Mattel vergeht, _Intellivision 


besteht 


Ba a A ee 


Zum 31. März stellte, wie 
viele unserer Leser bereits 
wissen, die Mattel-Electronics 
in Hamburg ihre Tätigkeit 
ein. Mancher fragt sich nun, 
was aus den erfolgreichen 
Intellivision-Produkten ge- 
worden ist. 


Wir dürfen alle Intellivision- 
User beruhigen: Das System 
wird nicht vom Markt ver- 
schwinden. Der Umstand 
nämlich, daß Mattel im 
letzten Jahr einen Umsatz- 
verlust in Höhe von mehr als 
einer halben Milliarde Mark 
gemacht hatte, wurde vom 
amerikanischen Mutter-Kon- 
zern zwar allen möglichen 
Faktoren angelastet, auf kei- 


nen Fall aber den Spielpro- 
grammen von Intellivision. 


So soll, wenn wir Senior Vice 
President Terry Valesky 
Glauben schenken dürfen, 
das ganze System auch in 
Deutschland weitervertrie- 
ben werden. 


Die Serviceleistung im Rah- 
men bestehender Garantie- 
vereinbarungen werden für 
die zuletzt ausgelieferten Ge- 
räte noch von Mattel in Ba- 
benhausen erbracht. Somit 
ist auch für diejenigen, die 
Anfang des Jahres ein Vi- 
deospiel des Barbie-Erfin- 
ders gekauft haben, aus- 
reichend gesorgt. 
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TI-99/4A 


Hardcopy von 
Säulendiagrammen 


für den TI-99 mit Extended Basic 


Das folgende kurze Programm ermöglicht es, 
Hardcopy’s von Säulendiagrammen auf einem 
Seikosha-GP100A auszudrucken. 

Die Säulen werden in Blockgrafik dargestellt, es 
können dabei 2 Werte verglichen werden. 


Zu beachten: 

Der Druckerbefehl in Zeile 280 gilt für das Inter- 
face der Fa. Klein Computer, doch dürfte der Be- 
trieb mit anderen Interfaces ebenfalls gewährlei- 
stet sein. 

Werte, die in den Zeilen 240 und 260 festgelegten 


i 
2 
: 


D x 


Ahr 


>d CALL CLEAR ss CALL SCREE 200. FOR I=128 TO 136 :: READ 
Nt®)ıı FOR I=2 TO 12 ss CALL As :: 
COLOR (1,13, NEXT I L CHAR{I+8,A$ 


ı: CALL COLOR (8,13,2,1,16,2, »2 READ A$ :: 


=»: NEXT I 
EALL CHAR (33,A 


CALL CHAR(I„AS): CAL 


Bildschirmbereich überschreiten, müssen ent- 
sprechend umgerechnet werden. In den Zeilen 
130-190 werden die Zeichen definiert, in den Zei- 
len 200, 380-420 und 460 dem ASCII-Code zu- 
geordnet. Der Zufallsgenerator in Zeile 220 dient 
nur der Demonstration, durch Anderung der 
Schrittweite in dieser Zeile kann der Säulenab- 
stand verändert werden. Nach Löschen des Zu- 
fallsgenerators und der Bildschirmanpassung 
kann das Programm als Unterprogramm verwen- 
det werden. 


37@ CLOSE #1 :: 
386 RESTORE 156 
016 :: READ A, 


GOTO 496 
FOR N=1 T 
SOSUB 47 


RESTORE 166. :: FOR N=1 T 
2» READ A,Z GOSUR 476 
NEXT N 2: G0TO 336 
RESTORE 186 :: FOR N=1 T 
:: READ A,Z :: GOSUR 474 
» NEXT N =: GOTO 356 
RESTORE 17@ :: FOR N=1 T 


296 OPEN #1: "R5232.DA=8.FA=N 
„ER.LF" 

296 FOR Y=1 TO 22 :: PRINT # 
1: CHR$ (27) 5CHR$ (16) 5SCHR$ (0) 5 


„16,2,14.14,2) 
ı30 DATA "FIFIFIFIFIFIFIFL”, 
"006660661F234589" , "FIFIFIFI 
F2F4F8" , "46404040484040E 
9" 
148 DATA 2,192,1,255,7,128 
150 DATA-1,192,1.224,1,268,1 
»260,1,196,1,196,1,164,1,148 
‚1,146,1,252 
166 DATA 8,.255.3,128, 1,255 
176 DATA 1.255,4,128,1,255,3 
.128,1,.255 
186 DATA 6,255,1,160,1,144,1 
„136,1.145 
196 DATA 1.255,4,192,1,255,1 
„166,1,.144,1,136,1,143 
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$) 

216 EALL VEHAR(2,3,33,21) 22. 

CALL VEHAR(1,4,33.21) 

226 FOR X=6 T0 28 STEP-? :: 

RANDOMIZE :: Yi=INT(Z6#RND)+ 

1 2: Y2=INT (26%*RND) +1 

236 IF Yı=6 THEN GOTO 25% 

248 CALL VCHAR (22-Y1,X,129): 
CALL VCHAR (23-Y1,%,128,Y1) 

3: CALL VCHAR(22,%, 130) 

250 IF Y2=6 THEN GOTO 276 

26% CALL VEHAR(21-Y2,X+1,137 

Yz3 CALL VCHAR(22-Y2,%+1,136 

“Y2)z2 CALL VCHAR(21,X+1 

„158) 

270 NEXT X 


CHR& (56) :: PRINT #1,USIN 

G "##"223-Y$25 PRINT #1:CHR$ 
(85 

300 P=F+8 :: FOR X=2 T0 29 ; 
® CALL GCHAR(Y.X.@) 

318 IF Q0=32 THEN GOTO 43% EL 
SE IF @: THEN GOTO 466 

326 ON @-127 GOTO 390,38%,46 
0.32767,32767,32767,32767,32 
767,410,.380, 426 

33@ NEXT X 

348 FRINT #1:CHR$ (28) 5CHR$ (4 
86-P) 5CHR$(128) 

350 L=P 23. P=@ :: PRINT #1:C 
HR$ (15) 2: NEXT. Y 

368 FRINT #1:CHR$ (15) 


»: READ A,Z :: GOSUR 476 
NEXT N z: G0TO 330 
RESTORE 196 :: FOR N=1 T 
*: READ A,Z :: GOSUB 474 
NEXT N =: GOTO 356 : i 
PRINT #1: CHR$ (28) 5CHR$(1 

@) 5CHR& (128); 

446 P=P+10 

450 G0TO 336 

466 RESTORE 146 :: FOR N=1 T 

03 :: READ A,Z :: GOSUB 476 

»: NEXT N :: GOTO 336 

470 P=P+A :: PRINT #1:CHR$ (2 

8) 5CHRS (A) SCHRS(ZI 5 

489 RETURN 

496 END 
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T1-99/4A 


Punkte plotten 


für den TI-99/4A 
mit Extended Basic 


Mit diesem Programm kann jeder Punkt der256x Linien gezogen werden, der ”Pinsel” sich aber 
192 Auflösung angesteuert werden. Der Befehl dennoch bewegen läßt. Die Zeilen 1000 bis 28000 
”Call plotten’” (Cy-Achse, X-Achse) findet dazu lassen für einige Ideen Anwendung finden. (Stati- 
Verwendung. Die Zeilen 100 bis 1000 zeigen ein- stik, Grafik usw.) 

ige Anwendungsbeispiele dieses Befehls. So wird 

per Joystick der Pinsel” über den Bildschirm be- Zu bemerken: 

wegt, gleichzeitig werden Linien gezogen. Ein Lediglich 110 Zeichen lassen sich mit diesem Pro- 
Druck auf die Feuertaste bewirkt, daß zwar keine gramm neu definieren. 


198 CALL CLEAR 
116 FOR A=a TO 14 
126 CALL COLOR(A,2,8) 
136 NEXT A 
146 CALL SCREEN (16) 
156 CALL CHAR (129, "OGFFFF",4 
3, "SC42I9A1ALII42IC") 
16% DISPLAY AT(2,4) BEEP: "192 
*256 PUNKTE PLOTTEN" 
17@ DISPLAY AT(Z,A)2"" 
186 DISPLAY AT(4,6):"+ S1.JU 
LI 1983, VON" 
198 DISPLAY AT(5,6) 2 "MICHAEL 
VORWIEGER" 
200 DISFLAY AT{6,.6): "CHATTEN 
STRASSE 6." 
21& DISPLAY AT{i7,6):"6238 HO 
FHEIM Ts." 
22% DISPLAY ATt1G,1)2"" 
236 DISPLAY AT(11.4):"DRUEKE 
" 
246 DISPLAY AT(13,4):"1 FUER 
MALEN!" 
250 DISFLAY AT(15.4):"2 FUER 
SINUSKURVE" 
266 DISFLAY AT{17,.4):"3 FUER 
‚AEICHEN DEFINIEREN" 
270 DISPLAY AT(19,4)BEEP:"4 
FUER EIGENE ANWENDUNG" 
286 CALL KEY(O,K,S):: IF 5=6 
OR K<49 OR K>32 THEN 286 
296 ON K-48 GOTO 300,500, 706 
‚1800 
300 CALL CLEAR . 
318 FOR A=34 TO 143 
CALL CHAR{A,"") 
ö NEXT A 
CALL CHAR (33, "8046363810 


a W=98 :: S=128 
CALL SPRITE (#1,33,7,W,5) 
379 CALL JOYST(2,X,Yd:z CALL 
KEY(2,KK,SS):: IF SStX+Y=6 
THEN 376 
380 IF %=4 THEN S=St+t1 
39a IF X=-4 THEN S=S-1 
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406 IF Y=4 THEN W=W-1 968 CALL PLOT(ZEILE,SPALTE,Z 

416 IF Y=-4 THEN W=W+l EICHEN) 

420, CALL LOCATE CHI WS) 919 CALL HCHAR(ZEILE+S, SPALT 

436: IF Kk=18 THEN 370 E+3,33) 

446 CALL PLOTTEN{W,S) 920 NEXT Z 

456 GOTD 370 930 Xax+i 

50@ CALL CLEAR 949 IF X£S0 THEN 950 3: YEY+ 

516 FOR A=34 TO 143 1:2 = 

520 CALL CHAR (A,"") 956 CALL HCHARIY+20,X+2, ZEIC 

530 NEXT A HEN) 

54a FOR S=1 TO 25.6 STEF . 960 FOR Asi TO 8 :: FOR Bei 

550 W=INT (50*SIN (8) ) +100 To 8 

568 CALL PLOTTEN (W,5*10) 978 CALL HCHAR (A+5, B+3, 32) 

370 NEXT S 988 NEXT R :> NEXT A 

586 GOTO 589 99% CALL HCHAR(2,30,32):: GO 

706 CALL CLEAR TO 824 

719 FOR A=91 TO 143 1006 ! PLATZ FUER EIGENE 

72% CALL CHAR(A,"") 1010 ! ANWENDUNG 

730 NEXT A 1020 ! 

74% CALL CHAR (33, "ICIEFFFFFF 1030 | 

FFIESC" 37, "OGFFFF") 1940 | 

758 DISFLAY ATi2, 1): "AKTUELL 1050 | 

ES ZEICHEN :" S 1966 ! 

76% DISPLAY AT(Z,1):"AAAANEH 1070 ! 

% 1088 | 

77% DISPLAY AT(S,1 2 1090 | 

78 ZEIEE AG 28990 1 Ser 

786 DISPLAY AT(7,1):" 28910 ! CALL PLOTTEN (Y.X) 
SPALTE 2" 28920 ! ROTINE / ANFANG 

796 FOR A=1 TO 8 28936 ! 4 K.EYTE PROGRAMM 

808 CALL HCHAR (5+A,3,A+48) 299401 Br 

818 NEXT A 28950 ! 

829 ACCEPT AT{2,23)SIZE(Z)VA 29096 SUB FLOTTEN (WA,SE) 

LIDATE (DIGIT)BEEP: ZEICHEN :: 29810 IF WAFLIZ OR WAL OR S 

CALL. HEHAR (2,30, ZEICHEN E>256 OR SE<1 THEN 29230 

) 29026 WEL=25 

836 IF ZEICHEN>143 OR ZEICHE 290436 56C=33 

N<3S THEN 828 29640 FOR WC=184 TO & STEP - 

840 FOR Z=1 TOD 64 8 

856 ACCEPT AT(5,23SITZE(1)VA 29656 WEC=WEL-1 

LIDATE (DIGIT) BEER: ZEILE 29060 IF WA>WC THEN 29684 

866 IF ZEILE>S OR ZEILE<I TH 29676 NEXT WC 

EN 856 29086 FOR 5C=248 TO ® STEP - 

870 ACCEFT AT(7,23)SIZEI1) VA 8 

LIDATE (DIGIT) BEEF=SFALTE 29690 S6C=56C-1 

886 IF SPALTE=& THEN 936 29166 IF SE>SC THEN 29128 

896 IF SFALTE>B THEN 878 29116 NEXT SC 
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29126 
) 
29130 IF T6C=32 THEN GOSUB 2 
9188 
29148 TW=WA-WC 
29150 TS=SE-SC 
29160 CALL PLOT(TW,TS,TEE) 
29170 G0TO 29248 : 
2918@ IF 1433=143 THEN 29230 
29190 Z=7+1 
29200 CALL HCHAR (WGC,SGC,Z+3 
3) 
29210 ,T60=1+33 
29226 RETURN 
29230 CALL SOUND (206, 220,0) 
29240 SUBEND : 
36066 SUR PLOT (W,S,Z) 
26010 IF 5>4 THEN 30040 
30926 WA=WR2-1 ı: SE=S :: A= 
n £ 
30030 GOTO 30050 
30640 WA=W#2 :: SE=8-4 
z0050 ! 
30068 CALL CHARPAT(Z,A$) 
30670 B$=SEB$ (A$,WA, 1) 
30680 IF B$="F" THEN 30410 
30090 IF B$="6" THEN CALL Z& 
(WA,SE, Zr: GOTO 30410 
30100 ! 
30110 IF B$="i" THEN CALL Z1 
(WA,SE, ZI: GOTO 30410 
39126 ! 
30130 IF B$="2" THEN CALL 22 
(WA,SE,Z):t GOTO 30410 
30146 ! 
156 IF B$="2" THEN CALL 23 
AM,SE,Z):: GOTO Z6416 


So1gu ! 

W190 IF B$="5" THEN CALL 25 

(WA,SE,Z):: GOTO 36416 
aa R 

50216 IF B#="&" THEN CALL Z& 

(WA,SE„Z):: GOTO 30410 


3 IF B$="7" THEN CALL 27 

{WA,SE,Z):: GOTO To41o 

0240! 

36250 IF B#="8" THEN CALL 78 
A,SE,Z):: GOTD 30418 


» GOTO 36410 


294 IF B$="A" THEN CALL ZA 


(WA.SE,Z)2: GDTO 36410 


Sa320 ! 
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58330 IF B$="C" THEN CALL ZC 
(WA,SE.Z):: GOTD 36418 

S0340 ! 

30350 IF B$="D" THEN CALL ZD 
{WA„SE,Z):: GOTD 36410 

30350 | 

3037@ IF B$="E" THEN CALL ZE 
(WA„SE,Z):: GOTO 30410 

EZB | 

0410 CALL SOUND <206,770,%) 
a 


Kr 

30436 SUBEND 
31600 SUR ZO(WA,SE,Z) 
z1010 | 
„31020 IF SE=1 THEN C$="8" 
31030 IF SE=2 THEN C$="4" 
31946 IF SE=3 THEN C$="2" 
31056 IF SE=4 THEN C$="1" 
31066 CALL CiWA,SE,Z,C$) 
3167& SUBEND 
31686 SUB ZI (WA,SE,Z) 
31696 IF SE=4 THEN 31140 
31106 IF SE=S THEN C$ 
31110 IF SE=2 THEN C$ 
31120 IF SE=1 THEN C$="9" 
31130 CALL C(WA,SE,Z,C$) 
31140 SUBEND 
31150 SUB Z2(WA,SE,Z) 
31166 IF SE=3 THEN 31210 
31176 IF SE=1 THEN C$="n" 
31186 IF SE=2 THEN C$="6" 
31198 IF SE=4 THEN C$="3" 
31200 CALL CiWA,SE,Z,C$) 
‚31210 SUBEND 
31220 SUB Z3(WA,SE,Z) 
31230 IF SE=3 OR SE=4 THEN 3 
1270 
31246 IF SE=1 THEN C$="R" 
31256 IF SE=2 THEN [$="7" 
31260 CALL CiWA,SE,2,C$) 
3127% SUBEND 
31284 SUB Z4tWA,SE,Z) 
31290 IF SE=2 THEN 31340 
31308 IF SE=1 THEN C$="C" 

IF SE=3 THEN C 

326 IF SE=4 THEN C$= 
CALL CiYUA,SE,Z,CH) 
SUBEND 
@ SUR ZS(WA,SE,Z) 
IF SE=2 OR SE=4 THEN 3 


a IF SE=1 THEN C$="D" 
IF SE=3 THEN C4="7" 
CALL CiWA,SE,Z,C$) 
SUBEND 
SUB Z&{WA,SE,Z) 
31420 IF SE=2 OR SE=3 THEN 3 
1468 
31430 IF SE=1 THEN C$="E" 
31448 IF SE=4 THEN C$="7" 
31450 CALL C{WA,SE,Z,C$) 
31466 SUBEND 


TI-99/4A 


=1476 SUR Z7(WA,SE,Z) 
31486 IF SE=2 OR SE=T OR SE= 
4 THEN 31510 
31490 IF SE=1 THEN C$="F" 
31560 CALL C(WA,SE,Z,C$) 

SUBEND 

SUR ZB(WA,SE,Z) 

IF SE=1 THEN 31580 

IF SE=2 THEN C$="C" 
31556 IF SE=3 THEN C$="A" 
31566 IF SE=4 THEN C$="9" 
31578 CALL CiWA,SE,Z,C$) 
315960 SUBEND 
31596 SUR Z9(WA,SE,Z) 
S1606 IF SE=1 OR SE=4 THEN 3 
1646 
S1618 IF SE=2 THEN C$="D" 
31626 IF SE=3 THEN C$="R" 
31630 .CALL CiWA,.SE,Z,C$) 
31646 'SUBEND 
Fi8506 SUB ZAiwn,Sc.z) 
316646 IF SE=1 DR SE=S THEN 3 
170% 
3167%& IF SE=2 THEN C$="E" 
31686 IF SE=4 THEN C$="R" 
31696 CALL C(WA,SE,2Z,C$) 
31706 SUBEND 
317160 SUR ZRIWA,SE,Z) 
31720 IF SE=1 OR SE=3 OR SE= 
4 THEN 317590 
31736 IF SE=2 THEN C$="F" 
31746 CALL C{WA,SE,Z,C$) 
31756 SUBEND 
3176% SUB ZCIWA,SE,Z) 
31778 IF SE=1 OR SE=2 THEN 3 
1819 
51786 IF SE=3 THEN C$="E" 
31798 IF SE=4 THEN C$="D" 
31896 CALL C{WA,SE,Z,C$) 
31816 SUREND 
51826 SUR ZD{WA,SE,Z) 
31836 IF SE=1 OR SE=2 OR SE= 
4 THEN 31866 
31846 IF SE=3 THEN C$="F" 
31850 CALL C{WA,SE,Z,C$) 
51856 SUBEND 
51870 SUB ZE(WA,SE,Z) 
31886 IF SE=4 THEN 31996 ELS 
E 31918 
31898 C$="F" 
31968 CALL C{WA,SE,Z,C$) 
31916 SUBEND 
320600 SUR CiWA,SE,Z,C$) 
32810 CALL CHARPAT(Z,A$) 
32020 B$=SEB$ (A$, 1,WA-1)LCH% 
SEG$ (A$,WA+L, 16-WA) 
32039 CALL CHAR{Z,E$) 
32046 SUBEND 


CPU 13 
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SUPERHIRN ist ein Denkspiel für den 
»SHARP MZ-700, welches dem Origi- 
nasspiel, das auch unteı dem Namen 
MASTER MIND bekannt ist, nach- 
empfunden wurde. Nach dem Starten 
des Programmes erscheint das Titel- 
bild, unterstützt von einer kurzen 
Musik. Drückt man daraufhin die 'S'- 
Taste, so kann das Spiel beginnen. 
Es xönnen sich maximal 4 Personen an 
diesem Spiel beteiligen. Ziel des Spiels 
is’ 25, eine vom Computer ermittelte 
: Zahl herauszufinden. Diese Zahl be- 
| “eht aus paarweise verschiedenen Zif- 
| fern, deren Anzahl sich nach der jeweili- 
gen Spielstufe richtet. 
Stufe 1:4 Ziffern 
Stufe 2: 5 Ziffern 
Stufe 3: 6 Zitfern 
Jedem Spieler stehen insgesamt 14 Ver- 
suche zur Verfügung, diese Zahl 
herauszubekommen. 
Nach jedem Versuch beurteilt der 
Computer, ob die vom Spieler eingege- 
bene Zahl Ziffern enthält, die auch in 
seiner Zahl vorkommen und zeigt dies 
auch entsprechend an. 


Superhirn 


für den Sharp MZ-700 


Anhand dieser Information gilt es, mit 
Kombinationsgabe und etwas Überle- 
gung die ”Nuß” zu knacken. 

Benötigt man weniger als 14 Versuche, 
so erhält man einen Bonus, der ent- 
sprechend der Spielstufe vergeben 
wird. 

Wer am Schluß die meisten Punkte hat, 
ist der Sieger. 

Weitere Angaben zum Spiel sind auch 
aus dem Programmzeilen 2300-2690 
ersichtlich. 

Nun wünsche ich allen viel Spaß bei 
diesem Spiel! \ 


Programmaufbau: 

19.230: Titelbild 

290-560: Eingabe der Spielernamen 
und Spielstärke 

670-760: Computer bestimmt die er- 
ratene Zahl 

820-1250: Aufbau des Spielfeldes 
1310-2000: Spielbeginn 

- Eingabe der Ziffern 

- Bewertung durch Computer 
2060-2110: Spielende und Abfrage, ob 
weitergespielt werden soll 


2130-2290: Ermittlung des Siegers 
2300-2690: Spielanleitung 
Variablenliste: 

N$(4) - Spielernamen : 
P$(6) - Feld für die Anzeige der richtig 
geratenen Ziffern, jedoch nicht an der 
richtigen Stelle 

R$(6) - Feld für die Anzeige der exakt 
geratenen Ziffern 

Q(6) - Ziffer derZahl, dieder Computer 
ermittelt 

A(6) - Ziffern der Zahl, die der Spieler 
eingibt 

G(4) - Punkte der jeweiligen Spieler 

SP - Anzahl der Spieler 

ST - Stufe (Spielstärke) 1-3 

Z - Anzahl der Ziffern der zu 
raweuuch Zahl 

V- Zufallszahl (0-9), mit der der Com- 
puter seine Zahl festlegt h 

NN - Anzahl der exakt geratenen ' 
Ziffern y 

MM - Anzahl der geratenen Ziffern, die 
nicht exakt an der richtigen Stelle 
sind 

Alle weiteren Variablen sind Lauf- 
variablen oder Hilfsvariablen. 


8 PRINT"B" EEDDDDCCCCCECECE" 
28 REM . 198. CURSOR 28, 28: :PRINT"DRUECKE’S’ 
38 REM RRRRRRRRRRRRRRRRRRRORKRKKK 2088 TI1$="808988" 
48 REM *X*MALEN DES SPIELBILDESKK 218 GET D$:IF 0$="S" GOTO 298 
52 REM KRAKKKKKRRRRRRRRRERKKKKK KK 228, IF VALCRIGHT$CTI$,2))>15 GOTO 18 
68 REM . 238.G0T0 218 
78 PRINT"FSCSCSCEEI F5S EI FSCSCECBEEI F 248 REM 
SCSCECHEI FSCECECHEI" r 258 REM 
88 PRINT"C8 cs c8c8 c8cs E 268 REM XXMITSPIELER 1-4%% 
8 Bel 278 REM XXUND FESTLEGLUNG DERKX 
98 PRINT"CECSCSCEEI C8 CB CECSCSCECI C 288 REM X%XSPIELSTUFEX* } es 
SCECECEEE CECZCECETI" 298 CLR 
188 PRINT" c8 C8 c8 C8 c8 & 388 DIM N$C4):DIM QC6):DIM AC6) 
BERERSE“ - 318 DIM P$(6):DIM R$C6):DIM G(4) 
118 PRINT"FECBCSCSCI FECECECECI CB - FR 328 FOR I=1 TO 6 
ECSCSCELI CET FEEI " 339 P$CII=P$CI-19+"68" 
128_PRINT"BRR" S 349 R$SCLISRSCI-1I4"F1" 
138 PRINT" ES HHEINCSTFOESCEESEITES 358 NEXT I 
E9 368 PRINT"@" 
148 FRINT" c87. CR 3 C8 ° CE/CSEI 378 CURSOR 2,7:PRINTL?,3]"Spielanleitung 
er erwuenscht (JA/NEINI?" PR 
158 PRINT" CSCECECELE CB CECECECSCI 388 GET Us:IF U$="" GOTO 388 
ESFEEIELBTT! : 398 IF U$="J" GOSUB 2398 
168 PRINT" 825208768, E8EEEE9,.C52.EE 488 PRINT"@" 
EIcSTE 419 CURSOR 2,6:PRINT"Wieviele Spieler?>1 
178 PRINT" EE LIACBZES 7 EREITEENSE an. 
ERIRSS! : £ 428 GET SP:IF CSP<1)+CSP>4) THEN 428 
MUSIC"CCCCCCCCDDDDEEEEFFFFEE ° 438 CURSOR 2,6:PRINTSPCL25) 


188 TEMPO ?: 


14 CPU 
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a48 
458 


124)3;"t der 


468 
478 
480 
498 
588 
518 


528 


FOR %=1 TOD SP 

CURSOR' 2,6:PRINTL?,3J"Wie hei" ;CHR$C 
"3%3” „Spieler?" 

CURSOR 2,8+%: INPUT N$CX) 
NSCXI=LEFTSCNSCKI, 129 $ 

NEXT % 
FOR W=1 
PRINT"B" 
FOR %=1 


TO 1988:NEXT W 
TO: 3 


CURSOR 8,5+% :PRINT"STUFE" 3%35" :"35%+35 


" VERSCH. ZAHLEN RATEN" 


538 
548 
558 
568 
578 
588 
598 
688 
618 
628 
538 
648 
658 
668 
678 
688 
698 
?88 
?18 
728 
>39 
>48 
758 
768 


778 


788 
798 
8388 
818 
828 
838 
848 
858 
868 
878 
8808 
898 
388 
318 
928 
9338 
948 
358 
368 
9378 
988 
998 


NEXT X 
CURSOR 2,19: INPUT"STUFE=";ST 
IFCST<1)+CST>3) THEN 588 
2=ST+3 

PRINT"@" 

REM 

REM KKRRRRRKKKK 

REM XXSPIELBEGINNKX 

REM RRERREKKICKHKKK 

REM 
REN 
REM 
REM 
REM 
FOR J=1 TO SP 

FOR I=1 TO 2 
V=INTCIOXRNDCIII 

GCII=U 

IF I=1 60TO 758 

FOR L1=1 TO I-1 

TF OCLII=ACI) THEN GOTO 698 
NEXT L1 
FOR W=1 
NEXT I 
REM 
REM 
REM X*MALEN DES SPIELFELDESKK 
REM 

REM 

PRINT" @" 

K1=8 

CURSOR 5,8:PRINTL?, 31N$CJ) 
TEMPO? :MUSIC"CCCDDDEEEDDDLLELCT 
FOR %=3 TO 48 STEP 6 

FOR Y=@ TO 3+2X6 

SET YyX,4:SET Y,X-1,4 

NEXT Y 

TEMPO? : MUSIC"ET" 

NEXT X 

FOR Y=3 TO 45 

SET 4,Y,4 

SET 4x*2+5,Y,4 

SET 6*2+ 9,Y,4 

TEMPO?: MUSIC"C" 

NEXT Y 

K=8 :K1=8:K2=8 

FOR I=1 TO 14 STEP 2 


KXCOMPUTER SUCHT SICHXX 
KXEINE ZAHLKK 


TO 2:NEXT W 


SLLEN 


18088 CURSOR @,2+K:PRINT USING"##" 51 

1818 CURSOR B,2+K+1:PRINT USING"##"5 I+1 
1828 K=K+3 

1838 NEXT I 

1848 FOR K=1 10 14 STEP 2 


1858 FOR I=1 


TO 2 
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1060 
1878 
1888 
1098 
1108 
1118 
1128 
1130 
1148 
1150 
1180 
1178 
1188 
1198 
1298 
1218 
1228 
1238 
1248 
1258 
1268 
1278 
1280 
1290 
1398 
1318 


CURSOR 3+K1 ,2+K2:PRINT"x" 
TENPO2: MUSIE"C" 
K1=K1#2 

NEXT: I 

Ki=® 

"FÜR I=ı TO 2 

CURSOR S3+K1, 2+K2+1 
TEMPO?= MUSIC"E" 
Ki=K1+2 

NEXT I 

Ki=8 

K2=K2+3 

NEXT K 

K1=8 :K2=8 :NN=8::MM=® 
FOR I=1 TO SP 
CURSOR 8+3%2, 2+4X1:PRINTL?,31 N$C1) 
TEMPO3: MUSIC"G" 

CURSOR 8+3%2,4+4X1 :PRINTGCI) 
TEMPO3: MUSIC"G" 

NEXT I 

REM 

REM KKKKEKKKKKKKKKKKKKRRKKKHK 
REM KKEIGENTLICHER SPIELBEGINNXK 
REM KRRREERRRRRREKKRCRRRRRRKKKKKKK 
REM 

CLRSOR 6+3%2,@:PRINTL?,3] 


:PRINT"x" 


"Bitte 2i 


fern" 


1328 
1338 
1348 
1354 
1368 
1378 


CURSOR 6+3%2,1:PRINTL?,3] "eingeben 
FOR K=1 TO 14 STEP 2 

FOR I=1 TO 2 

CURSOR 6+3%2,2 :PRINT" 

GET U$ 

IF CUSD"O"IKLUKO"T"IKCUSKO "2" IKCU 


SO"ZVIKCUS"ATIKCUEO "SF" IKCUSK "H" IXKCU 
EA" ZU IKCUSON"E"IKCUFKD"9") THEN GOTO 13 


58 
1388 
1398 
1488 
1418 
1428 
1438 
1448 
) 
1452 
1468 
1478 
1488 


1498 


1500 
1518 
1528 
1530 
) 

1548 
1558 
1568 
1578 
1588 
1598 
1608 


1618 
1626 


ACII=VALCUS) 

IF I=1 GOTO 1438 

FOR Li=1 TO I-1 

IF ACIJ=ACLII GOTO 1358 

NEXT L1 

TEMPO3: MUSIC"G" 

CURSOR 3+K1,2+K2:PRINT USING"#";ACI 


Ki=K1+2 

IF GCIJ=ALHITHEN NN=NN+1:GOTO 1528 
IF MM=2 GOTO 1528 

FOR J1=1 TO 2 

IF .@Cy1)J=ACI) THEN MM=MM+1 

IF MM=2 GOTO 1528 

NEXT J1 

NEXT I 

CURSOR 3+2%2, 2+K2 :PRINTRSCNN)I ;PSCMM 


GCYI=GLYI+1OOKNN+1OXMM 
CURSOR 8+3%2,4+4%J :PRINTGLJY) 
TEMPOS :MUSIC"GGHH" 

IFNN=2 THEN GOTO 1868 
K1=2:1N=9 :MM=B 

FOR-I=T TO 2 

CURSOR 6+3%2,2:PRINT" 


GET ü$ 
IF USD "ON IKLUSKD "I" IKCUSK "2" IKCU 
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SCH ZTIKCUSSD "A IKCUSO "SU IKCUSO "ES" IXKCU 
SEO"Z"IKCUSO"E"IKCUFK>"9") GOTO 1688 
1639 ACII=VALCUSI 

1648 IF I=1 GOTO 1688 

1658 FOR Li=1 TO I-1, 

1668 IF ACI)J=ACLI) an 1688 

1678 NEXT L1 

1689 TEMPO3:MUSIC"G" 

1698 CURSOR S+K1,2+K2+1 PRINT USING"#" 5A 
E19 

1788 Ki=K1+2 

17218. IF QCII=ACLITHEN NN=NN+1:GOTO 1779 
1228 IF MM=2 GOTO 1778 

17238 FOR J1=1 TO 2 

17248 IF QCJ1)=ACI)I THEN MM=MM+I 

1758 IF MM=2 GOTO 1778 

17268 NEXT J1 

17278 NEXT I 

1788 CURSOR 3+2%2, 2+K2+1 :PRINTRSCNN) ;P$C 
Mm) 

1798 GLJ)= GLJI+IOBXNN+1OXMM 

1888 CÜRSOR 8+3%2,4+4%XJ :PRINTGLJ) 

1818 TEMPOß :MUSIC"GGHH" 

1828: IFNN=2 THEN GOTO 1868 

1838 K1=8: NN=8:MM=® 

1848 K2=K2+3 

1858 NEXT K 

1868 0$="" 

1878 FOR Li=1 TO 2 

1888 O$=0$+STR$COALL1)) 

1898 NEXT L1 

1908 CURSOR 6+3%2,@:PRINT" 

1918 CURSOR 6+3%2, 1 PRINT" x 
1928 CURSOR 6+3%2, 2:PRINT" “ 
1938 CURSOR 6+3%2, 1 :PRINT"Zoh | lautet #" 
1948 CURSOR 6+3%2,2:PRINTO$ 

1958 GLJI=GCJI+LIS-KIKTODDRST 

1360 CURSOR 8+3%2,4+4%J :PRINTGLJ)I 

1970 TEMPO 6:MUSIC"CCCDDDCEC" 

19388 CURSOR 6+3%2,4:PRINTCHR$C127) 5" Tast 
e" 

1998 GET Us: IF Us="" GOTO 1998 

2888 NEXT J 

2818 REM 

2828 REM KKRRRRRKRKKKK 

2838 REM XXSPIELENDEXK 

2848 REM KRRRRRRKKKKKK 

2858 REM 

2858 PRINT"R" 

2878 CURSOR 1 ‚12:PRINTL?,3]"Sol| das Sp 
!tel weitergehen?" 

2888 GET U$:IF Us="" GOTO 2088 

2898 IF U$="J" GOTO 588 

2188 IF Us="N" GOTO 2128 

2118 GOTO 2988 

2128 PRINT"@":CURSOR 15, 2:PRINT"Spiel z 
uende" x 

2138 IF SP=1 GOTO 2250 

2148 FOR I=1 TO SP-1 

2158 FOR J=1 TO SP-1 

21698 IF GLJ+1)<=GLJ) THEN GOTO 2198 
2178 K=GCJ+1):GCJ+1)=GLlJ) :GLJI=K 

2188 U$S=NSCY+TI ENSLCYFTISNSCII ENSCYI=USF 
2198 NEXT J 


16 CPU 


2288 NEXT I 

2218 FOR J=1 TO SP 

2228 CLURSOR 8, 3+J :PRINTJ 3". "3N$CJ) 

2238 CLURSOR 28, 3+J :PRINTGCJY) 

2248 NEXT J 

2258 TEMPO 6: MUSIC"HHHGGGFFFEEDDCCCC" 

2269 CURSOR 15, 14:PRINT"Druecke 7S’,wenn 
Du" f 

2270 ,CURSOR 15; 15:PRINT"nochmal spielen 

willst" 

2288 GET U$:IF U$<>"S" GOTO. 2288 

2298 GOTO 18 2 

2388 PRINT"B" 

2318 PRINT"In diesem Spiel geht es darum 
seine vom " 

2328 PRINT"Computer ermittelte Zahl zu b 

est immen. " 

2338 PRINT"Es gibt 3 Schwierigkeitsgrade 
(Stufen). " 

2349 PRINT"BStufe 1:2ahl mit 4 Ziffern" 

2358 PRINT"Stufe 2:2ahl mit 5 Ziffern" 

2368 PRINT"Stufe 3:2ahl mit 6 Ziffern®" 

2378 PRINT"Die Punktevergabe richtet sic 

h nach dem" 

2388 PRINT"Jjeweiligem Schwierigkeitsgrad 


2398 PRINT"Es koennen sich maxımal 4 Spi 
eler an " 

2488 PRINT"diesem Spiel beteiligen." 
2418 PRINT"Der Computer hilft Ihnen dabe 
isdie ge-" 

2428 PRINT"suchte Zahl zu ermitteln, inde 


m er nach" 


2438 PRINT"jedem Versuch angibt,wie gut 

Sllergenn x 

2448 PRINT"tippt haben.Dies geschieht fo 
Igender-" 

2458 PRINT"massen:" 

2468 PRINT" 

fer an der" 

2478 PRINT" 

nget ippt" 

2238 PRINT" 

fer richtig" 

2498 PRINT" 

hr an der" 

2588 PRINT" ” richtigen Stelle" 
2518 PRINT" *XDruecke TastexX " 

2528 GET U$:IF U$="" GOTO 2528 

2538 -PRINT"B" 

2548 PRINT"Ihnen stehen insgesamt 14 Ver 
suche zur" 

2558 PRINT"Verfuegung.Sollten Sie mit we 
nıger Ver-" 

2568 PRINT"suchen auskommen,so erhalten 
Sie einen" 

2578 PRINT"Bonus,der sich nach der Anzah 
I der " 

2588 PRINT"Versuche und der Spielstaerke 
"richtet." 

2598 PRINT"Beı diesem Spiel zu beachten 
NSS 

2698 PRINT"besondere,dass bei den gesuch 
ten Zahlen" 

2618 PRINT"nur paarweise verschiedene 2i 


F1:Sie haben eine Zif 


rientigen Stelle ei 


68°Sie haben eine Zif 


eingetippt ,dber nic 
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ffern auf-" 


2628 PRINT"treten.Der Computer beruecks ı 
ehr ige. 

2638 PRINT"dies?" 

.2648 PRINT"Alles weitere zu diesem Spiel 


Spectrum 


2658 PRINT"mı.telbar aus .dem Spielablauf 
ers icht-" 

2668 PRINT" !:ıch." 

2678 PRINT"BEXXDruecke Tastexx" 

2688 GET U$:IF Us="" GOTO 2688 


ist. un" 


2698 RETURN 


Moonpatrol 


für den ZX-Spectrum 


Versuchen Sie Ihre Zielstation aufdem 
Mond zu erreichen. Sie sind mit einem 
Bagger unterwegs. mit dem Sie die vor 
Ihnen liegenden Krater zuschütten 
Können. 

Sie müssen sich aufIhrem Wegbeeilen, 
die Zeit ist gegen Sie. 

Ein zusätzliches Hindernis sind 
Meteore. die von Zeit zu Zeit einschla- 
gen und neue Krater schaffen 

Also. Vollgas mit dem Mondbagger!! 


Programmbeschreibung: 
12-90: Variable 
100-122: Grafik 


"APER 8: INK 


LET b$=" 2%: 


JEDES. 


= Hk 
PNIZBIEEOERE-IEHEN 


THEN PRINT AT 
THEN PRINT AT 


i PRINT 
SE THEN so TO 


THEN PRINT AT 
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200-390: Hauptprogramm 
400-490: links fahren 

500-520: rechts fahren 

900-970: Radarschirm 
1000-1030: Entscheidung ob Meteor 
erscheint 

1100-1140: Zeichen des Meteors 
2000-2200: Station erscheint 
Abschuß des Raumschiffs 
4000-4200: Spielende 

9000-9100: Definition der Grafik 


Variable: 

a: Fahrzeug 

tt: Spielzeit 

se: Score 

time: verbrauchte Zeit 

m: Meteor erscheint 

mx,my: Koordinaten des Meteors 
sch: Schlüsselob mitoderohne Ladung 
gefahren wird 

ex,ey: Explosion des Raumschiffes 
ru: Runde 


9200 9225: Zeichen des Hintergrun- 
des 
9300-9395: Spielerkläruug 


a$-e$: Radarschirm 
f$: Spielerklärung 


+2; INK 3; "4" 

S48 IF sch AND_ATTR 
4 THEN’ PRINT AT 19,3+2; 
“: PRINT AT 15,a+42;" ". LET 
BUS EET SC +18 

358 IF m THEN GO SUB 10898 

Ss680 IF n=8 _ THEN 50 SUB 1180 

=9@2 GO TO 288 

4ö@ REM links 

‚#18 LET a=3-1: PRINT AT 18, ,3+1; 
"__.: BEEP_ ‚822,0: BEEP_ ‚802,10: 

IF 2<% THEN LET a=3: RETURN 

438 Hei URN 

4983 REM rechts 

ee ATTR {19,3+21=4 THEN 50 

& 
BEEF .882,8: BEEP „202,18: 


‚282,15 
(5 +1: PRINT AT 18,3-1; 
az 8 THEN LET a=28: RET 


RETURN 

REM radar 

PRINT AT 14,29; 
IF es 
IE'e 


19,3 
INK 


EL 


fahren 


fahren 


IHK 
=3% THEN G0 TO 358 
$ THEN GO TO 95 
Irre 5 THEN GO TO.978 
RETURN 


LET e$=b$ 

: BRINT AT 14,29; 
RETURN 
LET 82$=c$ 
PRINT AT 14,29; 
RETURN 


INK 


INK 


IRND#12) 1 
THEN LET MY=INT i5+ 
3 To 1188 
1828 LET m=i 
18358 RETURN 
1188 LET n=8 
1128 FRINT AT ax.,my; INK 4; Br 

BINT A I,my;" ® : 
IF nx=20 THEN 
INK 4; "ja": LET m 


CPU 


17 


a a a 


ana na nananana 


DRAU 'OVER 1:-8 
ST 52: DRAW OVER 1;- 
PLOT 2158,55: DRAU OVER 1; 


L INT IRND=SB) 

LET _23-INT ikmweröß) 

ELOT 148,127: DRAU -ex,-ey 
FLOT 148,127: DRAW ey,-ex 
BEEF .8i,ex-20 
INK _n718 

WEXT n 

EET 2+10808 
LET £+!1008-time) 

FÜR n=2 TO 288: NEXT n 

LET rusru+i 

IF ru=5 THEN LET sc=sc+1888 
IF ru=i8 THEN LET sc=sc+188 


ru=15 THEN 
IF ru=s2& THEN 


so TO 58 
REM spielende 
FOR r=& TO 11 


FRINT AT r,12; INK 2;" - 


FRINT AT r-1,12;" 


NETTER 
FÜR n=563 TO 24 5TEP -i 
FLOT i38,n: DRAW 6,8 
NEXT_n 
FRINT AT_15,18; INK 4; "K" 
FOR n=d TO 5 

4855 FOR n=1 TO 7? 

4858 INKn 

4855 PLOT 143,31: 

F ’.0083,8 

4878 PLOT 151,31: 

P ‚883,18 

4875 PLOT 151,28: 

ER .883,15 

“öse NEXT n: NEXT 

4100 FOR n=7 T0 08 


"SAT 17,27 


4158 FRINT AT 21,10; "Score: ";sc 
3158 PRINT AT 19,18; PAPER 2; IN 
K 7;"Game_ wer" 5 
4178 PRINT AT 12,7; INK 7, "Noch 


einmal? dj 

4188 IF_INKE OR INKErY$="N" 
THEN_ STOP 

4138 IF _INKE OR INKEYS="J" 
THEN 50_TO 

+135 50 ; 

4288 

sea 

8339 

saaa 

3885 

sala 


35,156,162,1932,248, 


su35 DATA 8,125,123,130,252,252, 
12,242 
a DATA 2,1,1,129,225,235,235, 
2 

Ssu45 DATA I 

3,207 ,287 


‚ısz 
6085 -n DATA 


‚132,195,135,1593,193 
‚32,36,24,55,111,132 

‚255,231, 255,255, 
24,24 


93858 DATA 4. ‚36,24 ,28,246,3,3 
3855 DATA 255,129,129,255,255,25 
5,255,255 
ne 134 ,233,254,68,58,138, 
F,6 
a DATA 2,59,58,126,354,255,25 
sıaa RETURN 
9133 REM hintergrund 
P FOR n=& TO 188 
LET x=INT {RND+23551 
LET y=INT {RND#+#188+58) 
FLOT x ,yri S 
NEXT n 
RETURN 
REM spielierklaerung 
PAPER ?: INK 8: BÖRDER 2: C 


ie muessen versuch 
en Mit Ihrem Fahrzeug 50 schnell 
Wie NOrSLLchn Ihre Station zu 
gelangen, Um die Krater zu fu 
ellen, mues- sen 5ie ganz nach i 
und die TASTE 3 dru 

Nach rechts fahren 

Nach links mit 5. 
Rueckwaerts koennen 

die Krater fähren. 
stehen unter Zeitdr 
Haben bei jeder neu 
; Zeiteinheiten we 


ni 
PRINT AT 
BER 


"+++ Moonpat 


Si #32  Wjel.Gt 


‚"Press any ke 


"Moonpatrol” LINE 1 
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Wie man weiß, ist das Basic des Spectrum in einem ROM unterge- 


bracht und daher nicht veränderbar. 
Hier ist ein Weg; wie man trotzdem erweitern kann. 
Dieses Programm läuft sowohl auf dem 16K als auch auf dem 48K 


Alle Eingaben werden in einer Error- 
routine auf Fehler überprüft. Die 
Adresse dieser Routine wird in der Sy- 
stemvariablen ERRSP abgelegt. 
Diesen Zeiger kann man nun "verbie- 
gen”, so daß ein Fehler in die eigene 
Fehlerbehanulungsroutine läuft. 
Dadurch ist es möglich, eigene Befehle 
so zu gestalten, daß sie normalerweise 
einen Fehler darstellen und von der ei- 
genen Fehlerroutine richtig ausge- 
führt werden. 

Dieses ist dann ohne ein jeweiliges 
"RANDOMIZE USR” oder ähnliches 
möglich, da die Befehle jederzeit im 
Basic verfügbar sind. 

Es ist nun jeweils nötig den eigenen Be- 
fehl am Anfang mit einem Fehler- 
zeichen (wie z.B. ”$”) zu versehen, da- 
mit die selbstverfaßte Routine mit dem 
Fehler"NONSENSETN BASIC” ange- 
sprungen wird. 

Diese Erweiterungsmöglichkeit wurde 
benutzt, um hexadezimal nach dezi- 
mal und umgekehrt umrechnen zu 
können. 

Dabei ist es sowohl möglich die Ergeb- 
nisse auszudrucken als auch die Va- 
riablen zuzuweisen. 

Das Listing des Basicprogramms ist 
Bild 1 zu entnehmen. 


Bild 1: BASIC Beispielprogramm zur 
Zahlenkonvertierung 


Wie man sieht, muß man nur einmal 
ein Maschinenunterprogramm aufru- 
fen und zwar mit RANDOMIZE 
USR (Ladeadresse). 
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Spectrum und ist frei im Speicher verschiebbar. 


Dies muß allerdings am’ Anfang ge- 
schehen bevor das Programm abläuft, 
da bei "RUN” alle Pointer (auch ER- 
RSP) zurückgesetzt werden. Das be- 
deutet, daß ohne vorhergehende Initia- 
liierung nur "NONSENSE IN 
BASIC" statt der gewandelten Zahl zu 
sehen wäre. 

Man muß darauf achten, den richtigen 
Variablentyp zu wählen. Das heißt: 
Ist die Eingabe eine Zahl, so ist das Er- 


"gebnis ein String, ist die Eingabe ein 


Hex-String, so ist das Ergebnis nu- 
merisch! Wird das nicht beachtet, so 
werden bestenfalls verrückte Ergeb- 
nisse angezeigt werden. 

Ansonsten kann mit den Resultaten 
wie gewohnt gearbeitet werden. 

Als Basiceingabeprogramm kann fol- 
gendes verwendet werden: 


Bild 2: Eingabeprogramm 

Zur Verwendung kann noch kolnendks 
angemerkt werden: 

Das Programm verwendet einige Sy- 
stemvariablen zur internen Verwal- 
tung. 

1. Das NMI-Register: 

Da dies aber nur die Aufgabe hat bei 
NEW auf Null zu stehen und sein In- 
halt ansonsten egal ist, bleibt dessen 
Verwendung für den Rechner uner- 
heblich. 

2. SEED 

Dies ist die Initialisierungsvariable des 
Zufallszahlengenerators. Die Verwen- 
dung dieser Variablen macht Zufalls- 
zahlen eher noch zufälliger. 

3. Es werden die 4 letzten Bytes des 


LX Spectrum 


Extended Basic 


für den ZX-Spectrum + 16 und 48K 


Printerbuffers zur Speicherung eines 
Ergebnisstrings genutzt. Auch dies ist 
im allgemeinen unerheblich. 

Der Buffer wird lediglich bei der Aus- 
gabe auf dem Printer genutzt und je 
nach Bedarf überschrieben. 

Damit wäre die Arbeitsweise und der 
Platzbedarf des Programms geklärt. 
Hier nur noch einige Adressen im 
ROM für Interessierte: 

10H: Druckt den Inhalt des Registers 
A aus 

18h: Lädt das gerade aktuelle Zeichen- 
der Basiczeile in Register A 

20h: Holt das nächste Zeichen der Zeile 
nach-A 

1CB2: Ein numerischer Ausdruck wird 
gebildet und beim Programmablauf 
auf dem Calculatorstack abgelegt. 
CHADD >... „af das 1. Zeichen des 
Ausdrucks zeigen. Hinterher zeigt 
CHADD auf den nächsten Ausdruck. 
Bit6 von Flags ist gesetzt (zurückgesetzt 
bei einem String) 

1E94: Holt einen Ausdruck und lädt 
ihn in Register A Die Zahl muß positiv 
und kleiner als 256 sein. 

1E99: Holt eine Zahl vom Calc. Stack 
ins BC-Register. Diese muß kleiner als 
65536 sein. 

24FBh: Ein beliebiger Ausdruck wird 
gebildet und auf dem Calc. Stack 
abgelegt. 

Bei numerischen Ausdrücken die selbe 
Wirkung wie 1CB2. 

Bei Stringausdrucken kommt folgen- 
des auf den Stack: 

Reg. A: Art des Strings I= normal 

0= Array oder Teilstring 

Reg. BC: Länge des Strings 

Reg. DE: Startadresse des Strings 


CPU I9 


ZXS 


eis] 
+3 
=o 
ei 
a 
= 
ES] 


INPUT"An welche Stelle z01ll das Programm gepukt werden 7 ";ad 
FOR i=ad TO ad+ 338 STEP 18: LET s=@ : FOR j= 8 TO 9: RERD x: 
LET z==+x: POKE i+j,x: NE#T J : REARDk : IF k <> = THEN PRINT 
"Error in Statement Hr. ";180@+i-ad : STOR 

HE#XT i 

PRINT "Alles CE." 

FRINT "SAYE ROUTINE ":INFUT "WIE SOLL DAS FILE HEISSEN F";as 
SAVE a8 COCE ad, 385 

PRINT °*’"YERIFY ROUTINE ":VERIFT "" OCobE 

FÜR I=1 TO 18:EEEF „1,I:NEHT I 

FRINT ERIFY Q.K." 


159 CATA 23,12,9,2,34,1765,92,221,42,61,6885 


LATA 21.117,9,221,118.1,201,58,58, 1035 
LATA 92,254,11,49,2 7,253,293, 1,128,392, 1039 
DATA 7 I a ee 195,183,13,205,3,1159 
LATA es, BRSNGSRE =,229,195,1315 
DATA E 3 24 Eye a,ıEr4 
LATA cich ae 33, mr 
CATA F 

EATA = Z 5,15 4, & 1,5, 9.775 

EATA 3,34, 14,30.295.42, 101, SEE 
EATA F2,14,° Eu sSach 191,92,237, 1943 
bATA 5,235,43,2 3,0,253,203 1,246, 1481 
LATA R 31,254,12,40,4, 254, 

EATA SE +2 »92,229,35 3 29,195, 1444 
LATA ,231,205,231,36,293,2 1,118,14453 
DATA = 2,205, 162, 49, 20,89, 33.231.931, 1048 
DATA ar 175, 203,19,203,23,839 

DATA 203,13, 16,244,294,18, 1196 
EATA 43,119,35,193,16,872 


BT 


dü 


LATA 2 1,21,1.4,0,205, 1831 
LATA 2,24, 5,241,43,235,43,853,1157 
DATA 17, =: E 254 ,58,56,2, 214,7 

DATA 7, 2, „ai 13,263,35,203,1152 
LATA = E ‚19,2 3,35, 208, 18,181, 19657 
DATA i 5,223,56,75 ‚205,43,792 


DATA a = 245 ‚23,295,52,32,1955 
bATA 62 2 = ‚229,42,33,32,1055 
LATA an 4+9,4,254,1193 
DATA 13,32,247,135,118,27, ‚91,118,32,.1178 
LATA 34,118,92,239,43, 293, 126,49, 251, 1268, 12658 
GATA 254, 241,49,5,42,119,92, 24,204, 205, 1225 
CATA 119,9,2659,31,28, 205, 255,42,42,118, 1045 
LATA 32,285, 128,0,24,193,9,9,9,9, 824 


Du SET 1% ;EC enthaslt beim Aufruf durch WSR 
;die Adresse won IMIT 
ä 


’ 


HL.START- INIT hier wird die Differenz zwischen 
HL,EG ; der Fufrufadresse und Start ge - 
© HELP #,HL ;bildet,zur Aufrufadr. addiert und 
IH,l23813> ;als Zeiger auf die Errorreturnad- 
sI#H+B>7,L jresse abgespeichert 

SI#A+1>,H ; 


H 
START e A,tCERFEHR } SRKKFK ERRORRONTIHE  ERKKKHAKERKKH 
11 ;Fehler "HOHSENSE in Basic" 7 
. 2, NOMS Ja, dann nach Honsense 
EFF 7.£1Y+1> ;Frogrammlauft 7 
JR HZ, RUHER 5438 
SYHER HL,SHELF 4 ;Hein „dann Syntazerror 
HL. ;‚Adressz won Start zuöoberst auf 
12E7H dern STACK legen, Sprung inz ROM 
RUHER ‚F 13335H ; lermeldung aus9eben,ERR Nrö 
“ 11r4+97,255 ;loeschen und Adr. won START als 
L,%c HELP ‚Erroransprung auf den Stack 
HL ‚lesen 
12B4H ;zuryeck ins Kür 
DAS FEHLERZEICHEN UAR 5 DO KEKFHELEEHELEFKEH 
5 FOLGT DIE BEHÄNDLUNGSRÜUTINE FIKFHLLEELH 
# “kann auch Ihre eigene sein? FIELFILHEH 
HÖHS RS 15H ;laden des Fehlerverurzachenden 
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HÜK 
HIST 


UkE 


; 


COITA 


ZIFFI 
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7,6.174+1> 
HZ,CHITA 
ZH 
ZL1EH 
GHOKL 
ZERBH 
13H 

Bi,E 


v SCB5H >, HL 


bE,HL 
HI. 
En 


PIE l 

ZH 

13 

z,0Kz 

8 

HZ, NOK 
HL,CHELF > 
HL 
HL,12E7H 
HL 

LEFEH 


EERKREK 


es geh eine Z. 
in Skring 


HL,23547 
E,4 

EG 

B,4 

[5] 

b 

{u} 

[f 

[3 

D 

bEZS 

15 
C.Z2IFFA 


;‚Zeichens.Wlar e= "Ss" 7 
;Hein,dann anderer Fehler 
‚J4a,Fehlernr,. losschen 
;Fehleradr.=#FTR in MEM ablegen 


;Fehleradresse loeschen 

‚Runtime 7 

‚Ja, dann ausfnehren 

‚mein,also Syntaxpruefung „Neues 
;Zeichen holen. Ziffer 7 
snein,Rest des Befehl veberlesen 
‚Ja, dann Ausdruck holen,Flosating 
;pointzahl bilden und in Basiczei- 
‚le samt Zahlenmerker einfuegens 


5 
82.1. nebernommen aus ROM-Roy — 
tinze ab ZEIZH > 


;CHADD aktualis Sieren 

; anmerken dass numerischer Wert 
naechsten eraser Suchen 

‚neues Zeichen holen 

‚solange mit CR oder " verglei — 
;chen bis Ende des Betehls gefun- 
der E 


‚Erroradr. auf Stapel legen 
;Returnadresse auf Stack legen 


;zuryack inz Rom 
FRRFHTKHKTHKRRKEHHR RAR 
DER EIGENEN FEHLERRONTINE KERKKKKREK 
ERRRRRKKRKKKKKRKARFKKKRRKERKKRIKKKKK 
‚naechstez Zeichen holen 
‚Ausdruck bilden,auf Calculator- 
„etack „Eingabe numerisch 7 
snein,Sprung zur Stringeingabe 
ahl „z.B. 12345 eingetippt KRAKKKKK 
wie ekwa "AHFB" KERERKKKKRKKKKKTRK 
‚Zahl in FF-Format wandeln ‚in BC 
‚ablewen.El nach DE retten 
‚Anfangsadresse fuer zu bildenden 
‚String.d4 mal 4 Eits der Zahl in 
;bE nach A schieben 
‚danach Steht in A der Zahlenwert 
‚ges jeweiligen Nibbles von DE 


‚4 Eitz geschoben 
‚Wert “ 
Ziffer 
hs 7 addieren 
„Il-wandlung 45 addieren 
E zhervi 
icheradr e erhoehen 


;alle + Nibbles Junmchfnein->DEZZ 

A auf 1 setzen Snormaler 
String,kein Array? 

;ve mit Speicheradr. laden 

;El mit Laenge d.Strings laden 
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nein 
m die Hallen 


A anhaergen 
mir F 


;Alle 4 Nibb 
SSDE in BG 


nach em Enche er Zeile 


um 1 wrniedeisen bis 
z.B. LET} auftaucht 


vn Lacher 


HL. zurmu. 


END 
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ZX Spectrum 


Testbild-Generator 


für den ZX-Spectrum 


Die Bildwiedergabe Ihres Computers kann nur so 
gut funktionieren, wie der verwendete Fernseher 
oder Monitor eingestellt ist. 

Leider steht dafür in den seltensten Fällen ein geeig- 
netes Testbild zur Verfügung. 

Unser vorliegendes Anwenderprogramm für den 
Sinclair ZX-Spectrum liefert Ihnen gleich eine 
ganze Auswahl praktischer Einstellhilfen. 
Anhand eines Kurzmenüs wählen Sie das, was für 
die gerade anliegenden Unstimmigkeiten in 
Sachen Bildschirm die beste Abhilfe bringt: Ob 
Punktraster oder Schachbrett, ob Multiburst oder 
Konvergenzgitter - Ihr Spectrum generiert es und 
hilft so, ein perfektes Bild zu erhalten! 


Die Farbbalken sind ab Zeile 500 aufgelistet. 

In die Farbbalken nach PAL NORM, kann auf 
Wunsch ein weißer Kreis gezeichnet werden. 
Der Schirm kann auch in den 3 Grundfarben ge- 
wünscht werden. 
Beachten Sie die Zeilen 570, 575 und 578, der 
dabei aufgeführte Befehl RUN, ist sehr wichtig, 
versuchen Sie es ohne. 

Ab Zeile 600 wird das Testbild A gezeichnet, be- 
stehend aus einem Kreis, den ”Besen” in waa- 
gerechte und senkrechter Richtung. . 

In den Ecken werden zusätzlich kleine Kreise ge- 
zeichnet, welche mit den Komplementärfarben 
überschrieben werden. 

Damit die Kreise überschrieben werden, ist von 
der Anweisung OVER Gebrauch gemacht. 

Siehe Zeilen 625 bis 640. 


Das Testbild B hingegen ist der CCIR Norm näher. 
Es besteht aus: einem Konvergenzgitter, Kreis, den Besen” in horizont. Richtung, den Normfarbbalken, 
Multiburst und farbigen Ecken. 
Das Feldchen in der Mitte kann nach eigenem Wunsch beschriftet werden. (Siehe Zeile 785) 
Am Schluß jedes Programmabschnittes ist immer die gleiche Routine aufgeführt, z.B. Zeile 790. 
Der Befehl PAUSE 4E4 bewirkt eine unendlich lange Pause. 
„| Das heißt, so lange bis eine Taste gedrückt wird, dann wird der Schirm gelöscht, alles auf Null gestellt 
(z.B. INK,OVER, BRIGHT usw.) 
Zugleich erfolgt der Rücksprung auf Zeile 5 und das Ganze beginnt von vorne. 
Das ganze Programm zeigt, wie einfach die Software ist, um einen Spectrum als Testbildgeber zu 
”mißbrauchen”. 
Gerade durch seine Vielfältigkeit leistet es gute Dienste. 
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ZX Spectru 


PAPER 


TEST 


; PRINT AT 3.8; "Funk trasker a HB on itter" tn 
5 


4 Multiku 
FRINT AT 19 
FLASH 1: R 


vi: : ERIGHT & 

BEL LEDs 

3 Schachbrett 
Hau ze Testbild” B" 


\rweck zum Menwe mit NL": FLASH 8 


" THEN GO TO 4a 


u 
: 60T 


vu 


Ex 


FRIHT AT 1 
INPUT "Rand: 


FRINT 
=5 TO 1 
: PLOT 


ollen die Funkte sein: "AT 18,4: " 
Sie :" 
IF zX>1 THEN so TO 158 
ı vad TO 1: FÜR en 
FÜR b=B TO 175° STEP 21. 
HEFT 


2 


ET e=e-1: NEXT v 
Do 18 
° 18: FÜR b=@ TO 175 STEP 18 


ie soll das Gitter seint";AT 18,45" 1 ohne Kreis";AT 
;" Maehlen Sie :" 
: IF wir1l THEN GO TO 258 
2: PLOT i,8: DEAU 8,175: NEAT ı 


21.7: FLOT B.i: DEAW 255.6: NEXT i 


: DRAN 8,175: HEST i 
All 255,6: HEAT i 


3,6;"Welche Farbe fuer: "SAT 5 
aan AT AS" rot"sAT 1,65"3 m 
£ 3elb";AT 19,8; "Hummer eingeben fuer: " 
IHFUT "Buadrate: "95: IHK 9 
9 TU 5: FÜR a=8 TO 1 
FEIHT AT b+t2.0; "WM": HEAT- cc 


© NEXT © 


“;AT 21,155".5 .MO";AT 21,22;"1 MC 
"u BBHAHAR": NEAT C 


3: FÜR bs : LET ds =d+l 
lEstd.c: A : NE& 


‚"2 Far Enke 


5,4:"4 blauer: Schirm AT 18.4;"5  Sruener an 20,44 Kummer 


IF n=1 THEN GO TO 5: 
= IF n=2 THEN GO TO 526 
IF n=3 THEN GO TO: 
5 IF n=4 THEN GO TO: 
THEH Gö > 
CIRLLE 127: 


FÜR # 
"co TO 
chim 


EORDER : 


“ 1: BORDER 


FAFER 4: BÜRDER 4: 


78: GO TO 551 
TO STEF -1: OVER 1: PRINT IHK #5; BRIGHT 1; "mama" 
: EUM 558 


: RUN 558 
EUM 558 
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ZX Spectrum 


FAUSE ded: CLE : OVER G: INK G: PAPER 7: BRIGHT 8: RUN 
REN Testbi 


DEAN 255.175-2#1: NEAT i 
43,28: CIRCLE 31,31,28: GIRCLE 31,143,20 


nm aınn 


5: DEAU 8,88 
. : BEAU 8.68 
9: DEAN 2.68 
115: DREAM A, 
a: INK 5: PLOT 187+%,88: DRAW 2, 4EN 


EM Testbiid 
EORBER "AFER ©: IH 8 
i 3 FLÜÖT <.8: CRAH 8,175: HEAT C 
FLÜT @,c: ERAW 255,8: :NEAT C 


: DREAM 255. 175-282: NEAT c 
': LET d=d+l: FÜR c=43 TO 64: PLOT 4rd.c: 


3: LET ded+l: FÜR c=43 TO 54: FLOT Förd,c 

: LET d=d+l:, FÜR 2=43 TO 54: FLOT 128+4 

LET d=d+1: FÜR c=43 TO 54: FLOT 198+d,2: NEAT c: NE 

AT ++i.4:: FOR f=7 TO 8 STER -1: BRIGHT 1: FRINT INK #5 


i: BEIGHT 8 
+ REM Quadrate 


Se 


"5 FRINT INK. 


7: FLÖT 2.72: DRAW 8,40: HEAT cc: INK 8 
el" hi 
FEINT AT 3 "ke k RI E G";AT 11,115 "TELEWISION" 
FAUSE deed: INK 8: FAFER 7: RUN 
3 SAVE "test": 


INK 5 


EiNJEbeEen Fuer; 
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Kegeln 


Nach dem Laden durch Load "KE- 
GELN"” schaltet der Computer in den 
Fast-Modus und poked das Maschi- 
nenprogramm in den Speicher. 

Nun kann man wählen, ob man die 
Spielanleitung lesen will, sofort spielen 
will, oder ob man etwas ändern will. 
Drücken Sie ”T”, so wird eine kurze 
Spielanleitung ausgedruckt. 

Drücken Sie ”2”, so beginnt sofort das 
Spiel. 

Wenn Sie ”3” drücken, kann die Ge- 
schwindigkeit des Spiels verändert wer- 
den. 

Bei ”4” kann zwischen zwei Spielarten 
gewählt werden: 

1.”ABRÄUMEN” (nur die Kugeln, die 
nicht getroffen wurden bleiben beim 
nächsten Wurf stehen) 

II. ”IN DIE VOLLEN (nach jedem 


-55 ZEICHEN- 

iC) 1984 BY 
CLAUS HOFMANN 
KATZENLUECKSTR.4 
65233) HOFHEIM 


ZEILE 18 CA. 565 ZEICH 


LET _ A$="2A BE 40 CD 58 49 4 
c9_ 05 aF 35 80 23 35 B4 3A 
25_40 FE FF Ca CD B2 40 10 Fo 865 
aF 36 82 25 36 BA 5A 25 48 FEF 


c9_" 
40 FOR _A=8 TO LEN A$-2 STEP 3 
Se POKE 15514+INT (A/3) ‚15+# (00 
DE ae +C0ODE A$(A+2)-28 


+ 
FHEHLErErERE" 
s2 PRINT 


sar PRINT 
110 PRINT 

3 
120 PRINT "ssrH3s#s 3434444480484 
ESS LS ES EEE 2 
138 PRINT 
„240 PRINT " 
Be PRINT " 


TEBENDERUNG" 
178 PRINT " SPIELART" 
158 PRIN = 


ANZAHL DER WUE 
RFE" 


138 PRINT AT 15, = 
Enz „PRINT "> BITTE 


“bs LET A%= N 
E As 


r 


SPIELANLEITUNG 


SPI 
GESCHWINDIGKEI 


gr m 


TASTE DRUECK 


THEN so 


für den ZX-81 + 16K 


Wurf werden alle neun Kugein wieder 
aufgestellt. 

Wenn Sie ”5” drücken, können Sie die 
Anzahl der Würfe verändern.Dann er- 
scheint das Spielfeld am Bildschirm. Es 
zeigt eine Kegelbahn und oben die 
neun Kegel. 

Unten sehen Sie die Kugel. Sie bewegt 
sich ständig hin umd her. 

Nun müssen Sie versuchen den Wurf 
dann auszulösen, wenn sich die Kugel 
direkt unter den Kegeln befindet. 

Sie können mit jeder beliebigen Taste 
den Wurf auslösen. 


Variablenliste: 

A$: Maschinencodeprogramm in 
hexadezimaler Form 

ist auch Variable bei Tastaturabfrage 
A: Laufvariable beim Einpoken des 


353 PRINT 
RR 


3 
FOR _M=1 TO 19 
POKE 8,125 
LET 9=0-U 


ET P=PEEK 9 

IF P=151_THEN GOSUB 698 

POKE 0,188 

NEXT M 

POKE 9,128 

IF Dg="1" AND (z=9 sn Z= ER 
üÜR Z=27 OR Z=365 OR Z=45 
OR 2253 OR 2278 OR 2281 on 2200) 


THEN S0T0 
Rs D4-128 THEN G60T0 758 


x 
PRINT AT 21,10; " ; 
IE INKEYS THEN 60T0 568 
070,89, 

S4SeN INT (RNDES-4) 
LET T=0-56+5 
IF PEEK T<>128 THEN LET Z=Z 


POKE_ T,i28 
LET T=0-192+2# 
IF PEEK T<>123 STHen LET Z=Z 


POKE T,128 
ETURN 


16; "BAT 4,15; 
Ba a AT 5,1 
748 pAiNT ar 21,0; 
758 NEXT L 
778 G0T0 558 
1888 CLS5 
1818 PRINT “IN DIESEM SPIEL MUES/ 
SEN SIE VERSUCHEN DEN SCHUSS 
DANN ABZUGEBEN ( BELIEBIG 
E TASTE BRÜECKEN } ‚WENN SICH 
DIE KUSEL UNTER DEN KEGELN BEF 


Maschinencodes 

B: Geschwindigkeit des Spiels 

€: Anzahl der Würfe 

D: Spielart 

F: Laufvariable beim Spielfeld druk- 
ken 

L: Laufvariable: von I to Anzahl der 
Würfe 

M: Laufvariable beim Wurf 

P: Inhalt der aktuellen Print-Position 
Q: Ruft Maschinenprogramm aufund 
erhält nach dem Rücksprung die 
aktuelle Print-Position 

S: Wählt zufällig wieviele Kegel noch 
fallen 

T: Erhält nach dem ersten Treffer die 
aktuelle Print-Position zugewiesen. 

Z: Erreichte Punktzahl 


"UND NUN VIEL SPASS" 
EBENE THEN G0T0 1025 
CLS 


ERS 322 
PRINT "SESCHWINDIGKEITSREND 


G 
2828 PRINT 
2030 PRINT "MOMENTANE GESCHWINDI 


GKEIT: 
2942 PRINT PEEK 16564 


2850 PRINT 
2858 PRINT "BITTE GEBEN SIE DIE 
GESCHWINDIGKEIT EIN 


INPUT B R 

IF E<i OR B>25 THEN GOTO 28 
POKE 1856554,B 

CLS 

SOTO 398 


Eu = 
NT "SIE KOENNEN UNTER 2 
SEIELARTEN WAEHLEN" 


“1 ABRAEUMEN (DIE 
NICHT GETROFFEN WURD 
EN BLEIBEN SOLANGE STEHEN BIS 5 
IE GETROFFENWERDEN) " 
3040 PRINT " 2 IN DIE VOLLEN: iN 
ACH JEDEM HURF WERDEN DIE KEGSE 
L. WIEDER AUFGESTELLT)" 
3050 "LET D$=INKEY$ 
3858 IF D$4>"2" OR D$<"1" THEN 60 
ze 3858 x 


CLS 

G0T0 398 

CLS 

PRINT "ANZAHL DER WUERFE 
PRINT 


PRINT "BITTE GEBEN SIE DIE 
nn EIN 
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Romme-Zä ählprogramm 
für den ZX-81 + 16K 


Dieses Programm addiert die Punkte von 2-6 Spie- ins Menue zurückkehren. Nach Drücken der Ta- 
lern. Gleichzeitig wird notiert, wie oftjeder Spieler _ ste für die Endauswertung erscheint auf dem Bild- 
” Aus” gemacht hat. Nach dem Starten erscheint schirm der Endstand jedes Spielers. Nach einer 
das Menue. Dort kann festgelegt werden, wie viele kurzen Zeit wird dieser ausgedruckt. 

Spieler am Spiel beteiligt sind. Nach Drücken der 1: Menue 

entsprechenden Taste, verlangt das Programm die 200: Erklärung 

Eingabe der Mitspieler. Nun können die Punkte 1000: Variable und Ablauf für 2 Spieler 

nach jeder Spielrunde eingegeben werden. Dort, 1500: Variable und Ablauf für 3 Spieler 

wo der Pfeil steht, werden die Punkte eingegeben. 2000: Variable und Ablauf für 4 Spieler 

(Nach jeder Eingabe bitte N/L drücken). Der 2500: Variable und Ablauf für 5 Spieler 
Spieler, der keine Punkte hat, bitte eine 0 3000: Variable und Ablauf für 6 Spieler 
eingeben. 4000: Endauswertung 

Ist das Spiel zu Ende, können Sie mit”’0,9” (N/L) 4047: Ausgabe am Drucker 


175 IF INKEY$="65" THEN G0T0 338 
Be IF INKEYS="7" 


THEN EITO 408 


„PRINT © 
„PRINT " + 


ROMME 135 


CLS 
PRINT" ERKLAERUN 


5 PRINT 
BE 'MIT HILFE DIESES PRO 


ER "KOENNEN DIE PUNKTE U 
PRINT 


WERDEN. 
BEIN 


LET 0$= } 
PRINT AT 21,0; "PUNKTE EINGE 
LET D$=t 


‚PRINT " + Bi 
PRINT " * 
* TROISDURF 8 


C,RDEDER 


; RÜMMESPIELERN NOTI 
"DIE NOTIERUNGS DER Pi 


„DB; "WAT 13,0;" 


INPUT A 
IF A=8,5 THEN G0T0 58 

LET T=T+A 

PRINT AT 19,13; T 

5 IF_A=2 THEN 50 

PRINT AT 13,0; 


INPUT EB 

IE E=2,3 THEN G0T0 58 
5 LET U=U+B 

PRINT AT 13,13; U 

IF B=8 RS N GOSUB 1228 


BEE 22 2222 2 22225 


“WEITERHIN WIRD FESTE 
ER" 
T "UND WIE OFT AM, ENDE 


12098 
T.190,0;" 


"HasssssHHtHHt 


"SPIEKER AUS GEMACHT 


#esHHHH# 


502 PRINT 


"DUREH DRUECKEN EINER 

ya 

"TASTE KEHREN SIE IN 

"ZURUECK Ene KOENNEN 

PROSRANM" 
3 "DURTZH DRÜECKEN DER „J 


"TASTE STARTEN." 
"NACH JEDER EINGABE 8 


"LINE DRUECKEN.AM 
"RDIERUNG KEHREN SIE 
"INS MENUE ZURUECK," 


ArEREEUTE 


+1 
BRINT Br 13,24;R 
RETU 


" THEN 5070 


FUNKTEZREHLER FUER 3 
ATS 


7 AUSWER 


"assttrr 


21,8; "NAMEN EINGEB 

, INPUT 
PRINT 
nn 


1" THEN G0T0 288 
2" THEN S50T0 188 


3" THEN 60T0 158 


= 


4 "FUNKTEZREHLER FU 2 
INKEY$="4" THEN E0T0 228 Te ne ESBERLER a « 
q 5 BRINT AT 5,8; "SPIE "I; 5 PRINT AT 21,8; "PUNKTE INGE 
F INKEY$="S" THEN 60T0 25a is. ; Dal - = 2 


"PUNKTE" HAT. 5,25; "AUS" 
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21,8; "NAMEN, EINGEB 


m 3,1; 
IF Es 3 THEN GOTO 58 
LET T=T+A 11,1;B$ 
PRINT AT 128,15;T Bw: 
IF A=8 THEN SOosus 1598 9 3 1} F 13.,1;C$ 
PRINT AT 12,0; ‚AT 13,8; 
AT 18,0; 7% 41.1 fi . 3835 PRINT 15,1;D$ 
® INPUT 5 12 2 s@a42 INPUT 
Seile er ae Sad NET ee 
U=0+ 25: PUNKT 3844 IN 
BRINT AT 13,13; U : EZBEHLER FUER 5 2945. PRINT AT 1a,2;F% 
ar „one, Hal GORUn sea8 os NTERT RBB BERTET ER RE Ne BEN al "PUNKTE EINGE 


2,0;" ";AT 13,8," 5 jet 5:88; 
8517 PRINT ar AeAD 3858 PRINT AT 3,0; "'W;AT 11,0," 
c . se AT AB70RN HAT: 
3_THEN G0T0 59 5: 2 21,0; "NAMEN EINGEB H T 19,85" ® 
LET Y=l4c 


A 
PRINT AT 15,13; U 2520 uU =@.5 THEN G0T0 58 
IF C=8 THEN GOSUB 1348 2: 18,1;R$ 3855 LET T=T+A 


SITG_ 1535 3953 ERINT AT 3,2 

LET 5=5+1 2525 12,1;B% 50 

PRINT AT 19,24; 252 s 9,0;" "AT ‚21,08 
N F 14,1;0$ nn 8; aTas,ei" 

BRAIN? ar 13,24; R i 15,1;D$ 

RETURN 5 

LET 0=9+1 3 T 18.1:E$ 


PRINT AT 158,24;0 LET F$= 
AN PRINT AT 21,8; "PUNKTE EINGE 


@_PRINT AT 19,0; 'W";AT 12,0; " 
H 4,0, NAT 16,0, 5 VAT AR 


INPUT A 

IF A=@,3 THEN G0TO 50 +0 

LET T=T4R 8082 PRINT AT 13,13; U 

PRINT AT 18,15;T 3034 IF C=@ THEN &dslıe 3348 

IF A=@ THEN GOSUB 2300 3036 PRINT AT 9,0," "SAT i1,a;" 

PRINT AT 19,8;° ";AT ı i „18,8;° ";AT eo; AT 17, 
BAT 14,0;" "jaT is,o;" at 19,05" 

E Soss INPUT. 
sad IL D-8.9 THEN GOTO 50 
3052 LET U= 
"FUNKTEZAEHLER FUER 4 . 3088 PRINT AT 18,18; 
5 a sass IF Dre THEN S0sUB 3esa 

5 BRINT AT 8,8: 2SPIELER" AT 5 F 3093 PRINT AT 9,0;° ® F 
"BUNKTEL FAT 5,283 "AUS 5 F r B ;AT: 


Luz 

Ht 
„cu 
.:} 
ıD 

er 
zZ 
m 
= 
o 
{=} 
4 
a 
un 
[>7 


2 B 


i 
; 


SSSSSSEHSEBT 


4 
197 
u 
7 
5 
R 
P 
In} 
x 
SG 
D 
N 


21,8; "NAMEN EINGEB 5 1 31a2 IF E=2,9 THEN G0T0 58 
& IF_C=8,3 THEN 50T0 58 3184 LET X=X+E 
LET U=V4+O 

198,1:A$ PRINT AT 14,13; 

? IF C=8 THEN sosuB 
13,1;B%$ PRINT AT 19,0; " 12,8; 

";AT, 44,85" ";AT is,a’ "mat is 
15,1;C$ 8; 


sa INPUT D 4 
19,1;D$ 2532 IF D=8.9 THEN G0T0 58 
LET W=l4D 118 BRINT AT 19,13;Y 


[2 BRINT AT 18,1 128 IF F=8 THEN'GOSUB 3308 
BRINT AT 21,0: "PUNKTE EINE IF D=2 THEN 8 32 Baro ses 


PRINT AT 18,2; AT 12,0; " 
DRenT: Bas Den AT 13,0; „40, HAT 18,0," "5 3885 PRINT Ar 8,24:5 
8; 5 b 


T_15 3318 RETURN 
Per INPUT A 


E 3528 LET R=R+1 
au? IF Az0.s „THen G0TO 58 .3_THEN G0T0 58 3825 PRINT AT 11,24; R 
LET TeT+ a 


3532 RETURN 
PRINT Be 19,13;T 33408 LET U=9 
IF A=8 THEN Sosus 2400 5 IF_E= 0 HER’ Bose 2358 3845 PRINT Era 13,24;0 
PRINT AT 18,0; " ";AT 13,0," SOoTo a 3558 RETURN 
5,0; °- ";AT.19,0,” 3868 LET P=P+i1 
PRINT ni 19,24;5 3365 PRINT AT 15,24; P 
‚3 _THEN GOTO Sa 2 RETURN 387@ RETURN 
U+B LET R=R+1 3838 LET 0=0+i1 
PRINT AT 13,13 25 PRINT AT i12,24;R 3835 PRINT AT 17,24;0 
IF 6=8 THEN Sösln 24280 F Bel, 3530 RETURN 
; 2 LET: S982 LET N=N+1 
BIN? Ks 14,24;0 3985 ERDN AT 19,24;N 


se ka 16 


a 
8 
2 
2 
2 
2 
2 
2 


2 


Bun a 15,24;P B 
Eaıyr Ar. "1 3; RETUN 4882 PRINT ERS UERTUNG- 
ö _THEN "Sösu8 2448 E LET Bgsı 4085 PRINT AT 5,8; "SPIELER" ;AT S 
";AT 13,8; r BEN ‚AT 15,24;0 „12; "PUNKTE" ;AT S 23; "AUS" 
a 2 ass AU AT 8,1;As;AT 8, 135; T;A 
4915, DRINT AT 18,1;B8$;AT 18,13; U 


4028 PRINT AT 12,1;0$,AT 12,13;4 


14,1;D$; AT 14,13; 4 
15,15E$; AT 156,13;X 


3 15,1; F$;AT 18,13;Y 
PRINT AT 13,24; R E i a „ad; 
RETURN 1] 28,3; "ICH HOFFE ES 
LET 0=0+1 r = $x 
PRINT AT 15,24;0 Ken PRINT AT 21,10; "SPASS GEHAC 
RETURN EEE 'FUNKTEZREHLER FÜER 
LET P=P+1 SO LELER 5 übte PAUSE ‚ses 
PRINT AT 13,24; P 39817 ‚PRINT _AT 5, 8 "SPIELER";AT 055 I 
RETURN 


THEN E0OTO 4955 
12; "BUNKTE";AT 5,23; 5. 5 s 
3838 PRINT AT 5,0; 
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_WICOSOFT 


—Z ii = ea 


V6-20 

VC1000 Aridder Superarcade (o. Erw) DM 29.00 

VC1023 Gridtrap Labyrinth (o. Erw.) DM 35.00 

VC1024 Rescue Weltraumaction (o. Erw.) DM 29.00 

VC1001 Space Attack Arcade (o. Erw) DM 29.00 

VC1005 Martian Raider Arcade y: Erw.) - A 5 u ge 
VC1007 Moons of Jupiter (+8K) & 

VC1018 Line up4/Reversi(o-Erw) DM28.00 MM Byanıc wir zu een Fosed 


VC1020 Get lost Labyrinth (o. Erw ) DM 29.00 BV9008 Spiele fü .20 
VC1025° Penny Slot (0. Erw.) DM 25.00 DIR TELL EINIG DM 14,80 


VC1028 Power Blaster Arcade (o. Erw.) DM 20 N 
VC1040 Invaders Arcade (o. Erw.) DM 24. 
VC1003 Fluch des Pharao Adv. (4 16K) DM 19.50 J Commodore 64 


CB2004 Hungry Horace Arcade u. Spaß DM 29.00 
VC1029 Pedes & Mutants Action (o. Erw.) DM 29.00 CB2010 Krazy Kong Arcade Spiel DM 29.00 


VC1041 Log Run Action (o. Erw.) DM 24.00_ > 

VC1008 Shark Attack Action (0. Erw) DM 32.00 ee nn ei 2 au 
VC1011 Atom $masher Arcade (o. Erw.) DM 32.00 CB2019 Lander Arcade Spiel oe Se 
VC1034 Insector Arcade (o. Erw.) DM 32.00 N 50909. Fakatna Aka an 


CB2029 Stellar Dodger Arcade Spiel DM 29.00 

CB2030 Jammin Arcade u. Musik DM 29.00 

CB2031 Jammin Diskette ‚DM 35.00. 

CB2032 Pipeline Arcade u. Spaß DM 29.00 

CB2033 Pipeline Diskette DM 35.00 

i CB2003 Gridder Superarcade Spiel DM 29.00 
A ar CB2005 Dickys Diamonds Arcade u. Spaß DM 35.00 
Nordstraße 22, 3443 Herleshausen 082007 Panic Arcade Spiel DM 29.00 
CB2011 Frogger Arcade Spiel DM 29.00 

Bitte liefern Sie CB2014 .Exterminator Arcade Spiel DM 29.00 ku 
© per Nachnahme (zzgl. Gebühren) CB2020 Galaxy Weltraum-Arcade DM 35.00 

© per Vorkasse bzw. Scheck : ; CB2013. Multisound Synthesizer DM 65.00 0 
" CB2021 -$tix Weltraum-Arcade DM 45.00 
Anzahl Artikelbezeichnung i CB2024 Purple Turtles Arcade u. Spaß DM 35.00 


Die 


— 


Nuss: 

Ich habe einen Apple Ile und folgendes Problem: 
Ich möchte mir ein eigenes Basic mit deutschem 
Befehlssatz zurecht ”zimmern”, Wie kann ich 
meinen Computer dazu bringen, nicht das im 
ROM implementierte Apple-Basic auszulesen, 
sondern mein im RAM befindliches? 


... G. Übermuth 


Geknackt: 

Sie haben recht: Auf den ersten Blick klingt es 

recht kompliziert. Dennoch können wir be- 

stimmt helfen: 3 

Verschaffen Sie sich zunächst einmal durch 

‚CALL 151 Zugang zum Monitor. Dann machen 

Sie den RAM durch doppelte Eingabe von 

$C081 lesebereit. Nun holen Sie den ROM- 

Inhalt durch D000 in den Sprachbereich 

(D000FFFM). Nun tippen Sie wiederum zweimal 

den Befehl zur Lesebereitschaft ($C083). Jetzt 

ändern Sie die Reserve-Ausdrücke allesamt auf 

der Sprechcard Ihres Apple. Wichtig: Die Ersatz- 
. wörter müssen absolut die. gleiche Länge wie 

ihre. Vorgänger haben. Nun geben Sie BSAVE 

GERMASIC, A$D000,L$3000. Fragen Sie an- 

schließend $CO82 ab, und kehren Sie darauf 

mittels CTRL-C ins Basic zurück. 

10 DATA 173,129,192,173,129,192 

160,0,185,208 

20 DATA 2,.240,.25,32,237,253,200, 

208,245,0 

30 DATA 141,132,194,204,207,193, 

196,160,206,197 

40 DATA 213,194,193,211,201,195, 

141,0,173,128 

50 DATA 192,173,128,192,173,128, 

192,76,3,224 

60 FOR I=700 TO 749:READ A: 

POKE LA: NEXT 

70 CALL 700 

Schalten Sie nun Ihren Computer ein und aus: 

Ihr Germasic ist lauffähig. 


Nuss: ; 

Ich besitze einen VC-20 und eine 16K- 
Erweiterung. Dazu habe ich einen "Dr. Watson”- 
Assembler geschenkt bekommen. Diese Software 
verfügt über einen nützlichen Befehl (CHRGET), 
mit dem sich Zusatzkommandos erzeugen lassen. 
Ich wüßte gern, wie ich das machen kann, da das 
Begleithandbuch recht umständlich ist. 


B. Melthaus 
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Geknackt: 

Die CHRGET-Routine, die Sie ansprechen, liegt 
im RAM. Daher ist es durchaus möglich. Zu- 
satzbefehle zu implementieren. Wichtig ist aller- 
dings, daß Sie mit SEI die Interrupts außer Kraft 
setzen, nach der Ergänzung durch CLlallerdings 
wieder aufrufen. 


Geknackt: 

Obwohlder Bit 90 ein sehrgutes Basic hat, das sich 
für Arcade-Spiele eignet, vermissen wir einen Be- 
fehl, mit dem der Bildschirm abgefragt wird. Ei- 
nige Homecomputer tun das durch die Funktionen 
wie SCREEN=(x,y) oder SCRN(x,y) bzw. 
SCRN(x), bei anderen kann der Bildspeicher 
durch PEEK(n) gelesen werden. 

Beim Bit 90 ist keine solche Funktion vorgesehen 
und gelesen werden kann der Bildspeicher auch 
nicht, da er nur im Video-Prozessor zugänglich 
und so keinen Programmspeicher benutzt. 

Es gibt aber eine Möglichkeit, das Bit 90-Basiec 
(was im wesentlichen ein erweitertes Microsaoft- 
Basic ist) zu erweitern. Die Systemvariable an 
der Adresse 28677/28678 zeigt auf die Tabelle 
weiterer Basic-Befehle. (Gibt es keine solche Ta- 
belle, zeigt sie aufden Anfang der Basic-Befehle im 
ROM.) 

Die Tabelle ist folgendermaßen aufgebaut: 
Befehls- oder Funktionswort, Token des Befehls 
oder der Funktion, Adresse, an der der Befehl oder 
die Funktion abgearbeitet wird. Das Ende der Ta- 
belle wird durch den Wert 255 angezeigt. 

In unserem Fall wird der selten gebrauchte Befehl 
LOG in die Funktion SCRN( umgewandelt. Zwei 
Versionen des Programmes. sind abgedruckt: Für 
den Bit 90 mit 18 Kilobyte Benutzer-RAM und das 
andere mal für den erweiterten Bit 90 mit 34 Kilo- 
byte. (Wenn nach dem Einschalten etwas über 
16000 Bytes frei sind, haben Sie 18 KB, wenn es 
32760 sind, haben Sie 34 KB!) 

Funktion des Programmes: 

Zeile 2 setzt den-höchsten vom Basic-Programm 
zu benutzenden Speicherplatz ein wenig herunter, 
um sicheren Platz für die Maschinensprache zu 
schaffen und Zeile 3 POKEed den Code in den ge- 
schaffenen Platz und verändert die oben erwähnte 
Systemvariable, daß sie auf den neuen Befehl 
zeigt. 

Zum Maschinencode: 

Die Werte 83 bis 40 sind die ASCII-Codes des 
Funktionswertes ”SCRN(”, danach folgt der 
Token-Code 197 und die Adresse des Maschi- 
nencodes zur Ausführung, dann als Ende der Ta- 
belle der Code 255. Danach folgt der 
Maschinencode. 
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Damit der Editor die neue Funktion auch erkennt, 
muß das Programm mit "RUN” gestartet werden, 
bevor die erste Zeile eingegeben wird, die die neue 
Funktion besitzt.Die Funktion LOG( kann dann 
nicht mehr benutzt werden, dasien.nidentischzur 
Funktion SCRN{ ist. 

Benutzung der Funktionen: 

SCRN(x) hat den Wert des Zeichens an der Bild- 
schirmposition x, wobei x den Wert von O bis 767 
haben kann. 0 ist die linke obere Ecke des Bild- 
schirmes (meist nicht sichtbar) und 767 die rechte 
untere Ecke. Sollalso A den Codedes Zeichens an- 
nehmen, das in Zeile X an Spalte Y steht, so istzu 
schreiben: LET A=SCRN(32*X+Y). 
Entsprechungen in anderen Basics: 

CALL GCHSR(X, Y,A) - TI-99 

LET A=CODE SCREEN=(X,Y) — Spectrum- 
Basic 

LET A=SCRN(32*X+Y) - RGH-Basic für den 
Spectrum 

LET A=SCRN(X, Y) - Oric-Basic 

Wichtig: Die Funktion funktioniert nur im Text- 
Modus des Bit 90. Schnelle Spiele werden aber 
meist nur in diesem Modus geschrieben, da hier 
voll die Möglichkeiten der absolut freien Zeichen- 
definition mit CALL CHAR und CALL CHRCOL 
zur Geltung kommen. Auch in diesem Modus ist 
Dixelweise Bewegung durch Sprites möglich! 
Achtung: Bei angeschlossenem Drucker zeigt die 
erwähnte Systemvariable nach dem Einschalten 
- auf die neuen Druckerbefehle (LPRINT; LLIST, 
PRTSC = Hardcopy des Bildschirmes auf Epson- 
kompatiblen Grafikdruckern)., Sollen diese im 
Programm verwendet werden, so ist vor ihrer Aus- 
‚führung, bzw. vor Eingabe der Zeilen einzugeben: 
POKE 28677,222:POKE 28678,255 (bzw. 191 
bei 18 KB). Soll dann SCRN( wieder verwandt 
werden, geben Sie ein: POKE 28677,0:POKE 
28678,254 (bzw. 190 bei 16 KB). 


R.G. Hülsmann 


Geknackt: 

In Ihrer Juli-Ausgabe, Heft 7/84 fand ich für den 
Bit-90 das Listing Poet. 

Um dieses Programm aufeinem Laser 110/220 o. 
VZ200 zu starten, braucht man nur folgende Zei- 
len zu ändern: 

150 x=rnd(10) 

160 y=rnd(7) 

170 z=rnd(6) 

450 D=INT(X)+1 

460 3)=INT(Y+1 

470 „7)=INT(Z)+H1 

Zeile 510 ist zu streichen. 


Ich wäre Ihnen dankbar, wenn Sie diese Anregung 


weitergeben könnten. 


Rainer Wolf 


Geknackt: 

Ich habe einmal versucht, das Programm aus CPU 
8/84 "Dive Bomber” (Bit 90) für den Ti-99/4A 
umzuschreiben. Hier das Ergebnis: 

1.) Die Zeilen 425, 775 und 1150 müssen 
gelöscht werden. 

2.) Folgende Zeilen müssen hinzugefügt werden: 
1001 FOR DEL=1T0400::NEXT DEL 

1160 RETURN 

3.) Folgende Zeilen müssen geändert werden: 
160, 170, 180 anstatt CHRCOL einfach 
COLOR 

222 anstatt HOME, CALL CLEAR 

240 anstatt RND(8), (RND*8) 

250 anstatt RND(5), (RND*5) 

für die Zeilen 420, 770 und 1140 können beliebige 
Tonvariationen verwendet werden. Mein Vor- 
schlag: 

420 CALL SOUND(10,400,5) 

770 CALL SOUND(300,-7,0) 

1140 For i=1TO 10::CALL SOUND (10, 
220,0):CALL SOUND(10,440,0)::NEXT i 

Die Zeilen 550 und 910 müssen lauten: 

CALL KEY(0,KEY,S) 

Die Zeilen 560 und 920 dagegen: 

IF S=0 THEN... 

Die härteste Nuß waren allerdings die Zeilen 470, 
490 und 690. Hier handelt es sich beim TI einfach 
um den Befehl CALLGCHAR. Hierbei muß man 
auch beachten, daß man die X- und Y-Werte ver- 
tauscht. Die Zeilen lauten also: 

470 CALL GCHAR(FY,FX,T) 

490 CALL GCHAR(FY+1,FX+1,T) 

690 CALL GCHAR(BY,BX,X) 

Ich würde mich freuen, wenn Sie meinen Vor- 
schlag inHOMECOMPUTER oder CPU für die an- 
deren Leser veröffentlichen würden. 


‚Marc Neurath 


Geknackt: 
Betr. Das Titelbild mit "Insert Catridge” 
Beim unkorrekten Einschieben eines Moduls kann 
(!) im unteren Farbbalken des TI-Titelbildes die 
"Inschrift” Insert Catridge erscheinen. 
Es handelt sich hierbei um ein ROM- oder GROM- 
Progrämm, das sich in der Konsole befindet. Bei 
Versuchen mit dem Minimemory wurde auch ein 
ähnliches Menü gefunden: 
Ti Texas Instruments 

Homecomputer 

Insert Catridge 
(statt: PRESS 1 FOR TI BASIC) 
Vermutlich befinden sich noch viele Programme 
dieser Art im ROM. 


Rudolf Lechleiter 


Berichte 


TRAU KEINEM HIGHSCORE ÜBER 0 


Sie erinnern sich bestimmt 
an Seite 55 unseres letzten 
"HOMECOMPUTER”s. Wir 
gingen da der Frage nach 
den möglichen Wegen zu gut 
sortierten Charts auf den 
Grund. 


plare aus England, die zu 
praktisch gleichem Zeit- 
punkt entstanden.und somit 
einen direkten Vergleich 
zu lassen. 

Da haben wir zum ersten die 
Bulldog-Softspot-Top 30, die 
den Zeitraum vom 30. Juli bis 


ten wir die Vortex-TOP 50, 
die vom 11.8.84 datieren und 
somit wohl in derselben 
Dekade erstellt worden sein 
dürften. 

Wenn zwei statistische Erhe- 
bungen terminlich überein- 
stimmen, so sollte man da- 


dest nahezu identische Er- 
gebnisse zeitigen. Wir den- 
ken hier unwillkürlich an 
die Hochrechnungen der 
Fernsehanstalten an Wahl- 
abenden, wo es vielfach nur 
um Zehntel Prozente geht. 

Interessanter- und auch be- 


Heute präsentieren wir Ih- 
nen zwei waschechte Exem- 


10. August 84 berücksichti- 
gen. Als Konkurrenten wähl- 


zeichnenderweise ist dies 
nicht der Fall, wenn man 
sich Verkaufshitlisten zu Ge- 
müte führt. 

Wir greifen hierzu jeweils die 
ersten 10 Plätze heraus und 
vergleichen Vorkommnisse 
ebenso wie Ränge einzelner 
Programme... 


von ausgehen können, daß 
sie auch gleiche oder zumin- 


SOFTSPOT 
1) (-2) 1) (-10) 
2) (N) 2)(N 
3) N 3) (+2) 
4-31) N 
5) (-32) 5) N 
N 6) 
0) 7-11) 
8) (-21) 8) (2) 
9) (-12) 9) (-7) 
10) (+2) 10).(D 


VORTEX 
Games and Utilities for leading Home Micros 


TOP 30 30th JULY - 10th AUGUST 


COMPILED BY: BULLDOG ‚SOFTWARE DISTRIBUTION 


LAST. 
PROGRAM PUBLISHER COMPUTER 


TALES OF THE ARABIAN KNIGHTS | /NTERCEPTOR 
SABRE WULF ULTIMATE 
BEACH HEAD U.S. GOLD 
HULK ADVENTURE INT. 
JACK AND THE BEANSTALK OR 
DECATHLON 

AZTEC CHALLENGE 

VALHALLA 

HOUSE OF USHER 

LORDS OF MIDNIGHT 

FULL THROTTLE 

THE INFERNO 

CAVELON 

WORST THINGS HAPPEN AT SEA 
Loco ALLIGATA 

JET SET WILLY SOFTWARE PRODUCTS 
FLIGHTPATH 737 ANIROG 

TRASHMAN QUICKSILVA 
FORBIDDEN FOREST U.S. GOLD 

MUGSY MELBOURNE HOUSE 
PSYTRON BEYOND 

SHEEP INSPACE LLAMASOFT 
ANDROID 2 OCEAN 

PITFALL ACTIVISION 

WHERE’S MY BONES INTERCEPTOR 
GHOULS MICROPOWER 

SON OF BLAGGER ALLIGATA 

LUV BUG THOR 

GILLIGAN’S GOLD OCEAN 

FELIX IN THE FACTORY MICROPOWER 


CHART3 


Lesehilfe zu unserer Tabelle: 
in Klammern () jeweils die 
Placierung in der konkur- 
rierenden Statistik. (N=fehlt 
den anderen Charts/(- 
X)=um X Plätze schlechter 
in der Konkurrenzliste pla- 
ciert (+X)=in Konkurrenzli- 
ste um X Plätze besser 
placiert. 

Deutlicher als in dieser Ge- 
genüberstellung kann der 
Schwachsinn solcher Hitli- 
sten gar nicht demonstriert 
werden - ein Grund übrigens 
auch, weshalb Ihnen HOME- 
COMPUTER ” der- 
gleichen gern erspart. 


ACTIVISION 
U.S. GOLD 
LEGEND Pr 
ANIROG ın 
BEYOND 
MICROMEGA 
RICHARD SHEPHERD 
OCEAN 

SILVERSOFT 


vnuouRun- 


SPEC/CBM 64 
CBM 64 


NEW RELEASES (sk) 
NEWREFEASES 

UGH! 

CHOC-A-BLOC CHARLIE 

STAR TRADER 

RAPSCALLION 

REVELATION 

MR. MEPHISTO 

MYSTERY OF MUNROE MANOR 
CYBERTRON MISSION 


SOFTEK 
LOTHLORIEN 

BUG BYTE 

BUG BYTE 

SOFTEK 
EURO-BYTE 
‚SEVERN SOFTWARE 
MICROPOWER 


SPECTRUM 
SPECTRUM 
SPECTRUM 
SPECTRUM 
CBM64 
CBM64 
CBM64 
CBM64 


BankChambers,56 High Street,Congleton,Cheshire CW12 1BA Tel:026.02 77611 Telex:666916 Answerback code: MET 
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—Club 


Eine Arbeitsgemeinschaft für Software-Anwender 


soll gegründet werden. Ziel 

dieser AG soll sein: 

1. Klärung der Rechtslage 
durch Kontakte mit An- 
wälten, Händlern und auch 
Zeitschriften etc. 


‚Information, Beratung 


und Aufklärung der Mit- 


glieder und der Öffent- 
lichkeit 

.Erfahrungs- und Ge- 
dankenaustausch zu die- 
sem Thema, daß alle 
betrifft. 
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Die ersten Verbindungen 
sind bereits geknüpft. Durch 
intensiven _ Arbeitseinsatz 
soll schon in kürzester Zeit 
eine solide Grundlage für die 
weitere Tätigkeit der AG ge- 
schaffen werden. 

Wer sich für-dieses Projekt 
interessiert oder der Arbeits- 
gemeinschaft beitreten will, 
kann sich an 

Rolf Knorre, 

Postfach 200102, 

5600 Wuppertal 2 


wenden. Jeder Interessent er- 
hält dort weitere Informatio- 
nen (bitte einen frankierten 
Rückumschlag beilegen). 


Die Arbeitsgemeinschaft ist 
für jeden wichtig der Soft- 
ware kauft, verkauft, kopiert 
oder tauscht etc., unabhän- 
gig vom Computertyp. , 


C.1.G. 

Martin Woywod 
Hasenrecke 36 
3450 Holzminden 1 


Ich möchte Ihnen mitteilen, 
daß sich im Raum Holzmin- 
den/Höxter die Computer- 
Interessen-Gemeinschaft ge- 
gründet hat. 


Wir sind ein privater Zusam- 
menschluß computerbegei- 
sterter Leute und sind frei 
von kommerziellen Motiven. 
Es ist unser Ziel, den Infor- 
mationsaustausch unter 
Apple-Usern zu erhöhen 
und das Wissen um den 
Apple II Microcomputer zu 
vertiefen. In der C.1.G. ist es 
geplant, gemeinsam sowohl 
Programme (Software) zu 
schreiben, als auch Zu- 
satzkarten (Hardware) zu 
entwickeln und zu bauen. 


Um das zu erreichen, möch- 
ten wir Neulingen im Com- 
puterhobby durch Hilfestel- 
lung in Form von Einfüh- 
rungen in verschiedene 
Programmiersprachen (Basic, 
Pascal, Assembler) das Pro- 
grammieren leichter und in- 
teressanter zu machen. 


Zur Zeit istes bis auf weiteres 
nicht geplant, einen Mitglie- 
derbeitrag zu erheben. Um 
den regelmäßigen Infor- 
mationsaustausch zwischen 
den einzelnen Mitgliedern 
zu gewährleisten, treffen sich 
diese einmal monatlich in 
Höxter. Der weitere Informa- 
tions- und Neuheitenaus- 
tausch soll durch eine 
Disketten- bzw. Kassetten- 
aktion erfolgen. 


Interessenten können sich 
durch Einsendungeines aus- 
reichend frankierten und 
adressierten Freiumschlags 
unter u.a. Adresse weitere In- 
formation anfordern. Wir 
sind auch Anregungen gegen- 
über sehr aufgeschlossen. 
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Atar 


Der arme Maze Man hat während sei- 
ner Arbeit in den Gängen eines Berg- 
werkes sein gesamtes Geld verloren. 
Helfen Sie ihm, sein Geld wiederzufin- 
den. Aber hüten Sie sich vor den 
blinkenden Geistern und den Toten- 
köpfen. die dem Maze Man die Suche 
schwer machen. Deswegen ist es hin 
und wieder sinnvoll, ein Geldstück im 


Maze Man 


für den Atari 600 XL mit 16K 


Gang zurückzulassen und durch den 
Ausgang in den nächsten Gang zu ge- 
hen. Wenn Sie die 5 Gänge geschafft 
haben, fängt die Sache beim nächsten 
wieder an. 

Wenn Ihnen das Geblinke der Geister 
auf die Nerven geht, können Sie den 
Feuerknopf drücken, um sich zu 
erholen. 


Ein Spiel, das aufden ersten Blick recht 
einfach zu sein scheint, Sie aber schon 
bald ganz schön in Schweiß bringen 
wird. 

Viel Glück! 


Hinweis: Nutzen Sie unseren Tiptab- 
Service aus CPU 10 (Eingabe-Hilfe) 


8 REM RRHHHEHBEHEEEIHEEIEIEEIEN. 
1 REM * Ai 
Z REM * I A 2 EM 6 N} ”* 
3 REM * ”* 
4 REM * KLAUS HEMPEN ”* 
5 REM * ALTENKAMP 19 »* 
6 REM * 2903 OHRWEGE * 
7 REM = * 
8 REM * ”* 
9 REM BERSSHSRRREEEEREEEEIEE 


418 GRAPHICS 17:SETCOLOR 2,.0,8:5ETCOLOR 
4.8,8:5ETCOLOR 8,2,10 

45 POSITION 2,5:? SE: Maze Man“ 
:POSITION 2,11:? #6:"'by Klaus Hempen": 
POSITION 3,13:? B6;''CC) JULI 1984" 

17 POSITION 4,20:? B6;"BiTtE wArTen" 
28 R=PEEK(186)-8:FOR P=0 TO 1823:PoKE 
R#256+P , PEEK (57344+P) 

24 IF ATRI<S THEN POSITION 2.5:7 u6:"M 
aze Man" 

26 IF ATRI>S THEN POSITION 2.5:7? 
aAzE man“ 

27 ATRISATRI+1:IF ATRI>18 THEN ATRI=® 
28 NEXT P Ri 
38 READ I:IF I<® THEN POKE 283,R:G0T0 

108 

48 FOR p=e TO 7:READ K:POKE R#256+L8*I 

>+P.K:NEKT P:GOTO 38 

50 DATA 1,69,68,680,24,255,60,36,182 

51 DATA 32,60,60,680,24,255,60,66,195 

52 DATA 2,60,126,219,219,255,255,102,8 


54 DaTAa 3,247,247.247,0,253,253,253,8 
56 DATA 4,62,42,62,28,28,65,62,65 
58 DATA 5,126,255,145,181,149, 213,145, 


68 DATA 6,8,8,4,126,126,4,8,8 
62 DATA 7,0,24,68,980,24,24,24,8 

64 DATA 9,8,16,32,126,126,32,16,8 

66 DATA 18,0,24,24,24,908,60,24,8 

68 DATA 12,.68,126,219,219,255,255,182, 


DATA -99 
188 GRAPHICS 17:POKE 756,PEEK (283) 

185 GOSUB 18888 

118 ZEILE=38888:LEB=S5 

115 GOSUB 128 

116 GOTO 158 

128 V1=INTCRND (CO) *183 :V2-INTCRNDCOI #21 
2:LOCATE V1,U2,H1:IF H1<>32 THEN 128 
125 COLOR Hi 

138 POSITION V1,V2:? 
148 RETURN 

158 IF ZEILE)3Z1888 THEN ZEILE=30888 
153 BLD=8:H=-8:605uB 128 
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155 605SußB ZEILE 

168 SETCOLOR 2,8,12 

178 IF ATRI=1 THEN POSITION V1,V2:? ns 
Fe :ATRI=0:60T0 218 

188 POSITION V1,02:? B6;"H":ATRI=1 

218 A1=STICKcO IF A1=14 THEN Yi=Y1-1: 
IF vı<@e THEN vYı=8 

212 LOCATE H1,Yi1,H1:IF H1=35 THEN Yı=Y 


ı1+1 

215 IF A1=13 THEN Yi=Yi+1:IF Yı1>22 THE 
N vı=28 

217 LOCATE #1,Y1,H1:IF H1=35 THEN Yı=Y 
1r1 

228 IF A1=11 THEN H1=H1-1:IF X1<8 THEN 
41=8 

222 LOCATE H1,Y1,H1:IF H1=35 THEN Ki=# 
ı+r1 

225 IF A1=7 THEN Hi1=H1+1:IF K1>18 THEN 
H1=18 

226 LOCATE #1,Y1,H1:IF H1=35 THEN H1=X 
2 


227 LOCATE X1,Y1,H1:IF H1=164 THEN FOR 
P=@ TO 255 STEP 18:5SOUND 8,P,18,18:NE 

#T P:SOUND 8,8,0,8:5C=5C-108 

228 LOCATE #1,Y1,H1:IF H1=37 OR H1=165 
THEN SC=SC+58:FOR Q=-186 TO 8 STEP -1: 

SOUND 8,0,18,18:NEHT Q:SOUND 8,0,8,8:G 

oS5uB 128 “ 

229 LOCATE V1,V2,H1:IF H1=II OR H1=64 

THEN SC=SC+H58:FOR P=58 TO @® STEP -5:50 

UND 1,P,10,18 

258 SOUND 8,255,8,4:IF Hi<>HZ OR Yı<>dY 
3 THEN SC=Sc+1 

235 HIZKL:YI=vı 

248 LOCATE #1,Y1.H1:IF H1=38 OR H1=39 

OR H1=41 OR H1=42 THEN ZEILE=ZEILE+258 
:5C=SC+188:FOR Q=255 TO 8 STEP -5 

242 IF H1=38 OR H1=39 OR Hi=41 OR H1=4 

2 THEN SOUND 8,0,18,10:NEHT Q:6G0TO 158 

245 IF ATARI=®8 THEN POSITION #X1,Y1:? 
FUIMZATARIT GOTO 258 

246 IF ATARI=1 THEN POSITION #1,Y1:? 2 

6:"@":ATARI=O 

25@ IF H1=38 THEN SOUND 8,8.8,8:60T0 1 


SOUND 8.,0,8,8 
388 IF H=8 THEN GOSUB Z8088 
318 VIZUE:V18=V4:GOSUB I859:VI-YUI:U4=U 


VIZVS:V1B=-V6:GOSUB 3858:Y5=Y99: y6=U 


VI=V7:V18-V8:G0OSUB 3858:97=U9:VS=U 


V9=V11:V18=V12:G0OSUB SBOSB:VL1=U9:Y 
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318 V9=ZV1I:V18=-V14:GOSUB ZIO5B:VLI-UI:V 

14-1018 

319 POSITION #1,Y1: 

328 LOCATE VZ,U4,H1:IF H1=3Z OR H1=64 

THEN GOTO z188 

322 LOCATE V5,V6,H1:IF H1=33 OR H1=64 

THEN GOTO 3108 3 

324 LOCATE V7,V8,H1:IF H1=33 OR H1=64 

THEN GOTO 31808 

326 LOCATE V11,V12,H1:IF H1=3Z OR Hi=6 

4 THE4 60T0 z1808 

328 LOCATE V13,V14,H1:IF H1=33 OR H1=6 

4 THEN GOTO 3108 

330 POSITION V3,04:? B6;'"W":POSITION U 

5.,06:?7 B6;"W":POSITION U7,U8:7 36; 

POSITION V11,V12:? 6 

335 POSITION V13,914: 

968 POSITION 8,23:?7 36; 23505" 

POSITION 15,23:7? B6;"L LEB 

998 IF STRIGCBI=@ THEN 998 

1888 GOTO 155 

3088 VS=INTCRNDCOI*18) : V4=INT CRND (832 

13:LOCATE V3,U4,H1:H=1:IF H1C>32 THEN 

EST) 

5085 VS=INTCRND (8)#18) : U6=INT CRND (8) %*2 

1):LOCATE V5,U6,H1:H=1:IF H1<>32 THEN 

3885 

3088 V7=INTCRND(®)%*18) : VS=-INT CRND (8) #2 

13:LOCATE V7,V8,H1:H=1:IF H1C)>32 THEN 

3888 

3018 Vi1=INTCRND (8)%*18) :V12=INTCRND (CO) 

#21) :LOCATE V11,V12,H1:H=1:IF HA<>32 T 

HEN 3818 ı 

3812 VA13=INTCRNDCB)%*18) :UL4=INT'CRND (83 

#213:L0OCATE V13,V14,H1:H=1:IF H1<>32 T 

HEN 3812 

3828 RETURN 

3858 POS1=INTERND(®B)%*8) :IF POS1=Z OR P 

051-8 THEN V18=V18-1:IF V18<8 THEN Vie 

=e 

3055 LOCATE V9,V18,H1:IF H1=35 THEN v1 

e=v10+1 

3068 IF POS1=1 OR POS=7 THEN V18=V18+1 
IF Vv18>22 THEN V10=22 

3065 LOCATE V9,V18,H1:IF H1=35 THEN vi 

8e=v10-1 $ 

3878 IF POS1=4 OR POS1=6 THEN V9=U9+1: 

IF V9)16 THEN V9=-16 

3875 LOCATE V9,V18,H1:IF H1=35 Fhen vu. 

=u9-1 

3088 IF POS1=2 OR POS1=5 THEN V9=V9-1: 

IF U9<6 THEN V9-8 

3885 LOCATE V9,V18,H1:IF H1=35 THEN U9 

ZzU9+1 

3898 RETURN 

3188 FOR 0=1 TO 255 STEP 5:50UND 8,0,1 

8,18:NEHT Q:5OUND 0,8,8,8 

3185 LEBZSLEB-1:IF LEB<(-8 THEN Z2088 

3118 GOTO 158 

18888 POSITION 3,1:? B6:'"MAaAZE MA 

Ph 

10018 ? 6:7 26:7 86:7 n6;" ı 

anı:?2 n6;" „ GESPENST':? 6;" 
LEBEN" 

180828 ss TOTENKOPF":7 u6;'" 
-188 PUNKTE ne; GSELDSTUECK 
6 ;" +58 PUNKTE" 

10025 ? n6;" 

180838 ? n6 AUSGANG':? B6;" > 

4188 PUNKTE":? n6;" * " 

18848 POSITION 1,28:? 36;"DRUCKE START 
FUER":? n6;" EIN SPIEL" 

18858 RESTORE 32868 

11888 IF PEEK(S3279)I=6 THEN FOR P=255 
TO 8 STEP -2.5:50UND @,P,18,18:NEHKT P: 

SOUND 8,8,8,8:RETURN 

411885 IF ATARI=® THEN POSITION 8,5:? #8 

6;" 19:ATARI=1:6G0TO 11018 

11887 IF ATARI=1 THEN POSITION 8,5:? 

6;" B":ATARI=O 

11818 READ A:IF A{® THEN 10958 
11828 SOUND ®8,4,18,15:FOR qa=1 TO 11:NE 
KAT NR:READ A:SOUND 8,A,18,18:FOR a=1 To 
A1:NEXT 0:G0TO 11088 > 
38888 POSITION 8,8:IF BLD=® THEN BLD=1 
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GRAPHICS 17:H41=3:va= 
BZI:HZ=Z:Y 

30085 
z981@ 
30828 
z8038 
Z8848 
z0858 
z8068 
z@a070 
38888 
z0098 
30108 
3811@ 
36128 
Ze138 
z8148 
38158 
z8168 
380170 
ze188 
30198 
z0288 
z8218 
30228 
30258 POSITION 8,8:IF BLD=® THEN BLD=1 
:GRAPHICS 17:81=6:Y1=2:POKE 756, PEEK 2 
83) :R3=0:v3=e ” 
30268 

30270 

38288 

38298 

303908 

z8310 

38320 

ze338@ 

30348 

30358 

30360 

38370 

z0386 

30398 

z84808 

38418 

z0428 

Z8438 

z8448 

39458 

38468 

30470 

384880 

39498 

30588 POSITION ®8,8:IF BLD=® THEN BLD=1 
:GRAPHICS 17:X21=6:Y1=17:POKE 756,PEEKC 
203) : K3=0:Y3=17 

38510 386 5 "738° " " GEGERTSEBERESSISHRSREEGERLTR"" 

30520 um ame 

30538 
Z8548 
39558 
30568 
380578 
zes5se 
30598 
z0608 
38618 
38628 
Z8638 
38648 
30658 
38668 
38670 
38688 
38698 
30708 
ze710 


ÜEEBerenne 


il 


? 306 ; ""GUSEEGEBEIELIESELGEERELSBEBEBLEREERE"" 

38728 RETURN 

38758 POSITION 8,8:IF BLD=® THEN BLD=1 
:GRAPHICS 17:POKE 756. PEEK(Z83) :K1=2:Y 
1=8:43=2:YI-e 2 
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38828 
38838 
30848 
38858 
38868 
389878 
30888 
38898 
30988 
38918 
38928 
38938 
30948 
$8958 
38968 
38970 
38988 
38998 
31808 


1=22:43=7:Y 

zı0180 

zı028 

Z1038 

z1848 

zı058 

z1068 

z1078 

31088 

31898 

Z1108 

zı118 

31128 

z1138 

31148 

z115@ 

zı168 

zı170e 

zı188 

31198 

31208 

31218 

31215 

31226 

31998 

32888 POSITION 5,16:? 36; "WELTMEITIE 

32885 RESTORE- 32068 

32018 POSITION 2,15:? N6;"rMem ein MeM 

eB'':POSITION 2,16:? 36;"Grpilel diußcHe 
POSITION 5,18:7? sc:"9 DB ) 

32015 POSITION 9,23:? 6 

"= ®:POSITION 15,23:7 6 

32028 IF PEEK(S3279)=6 THEN 6G0TO 32058 


326825 FARB=FARB+1:FARBI=ZFARBI+1:IF FAR 

B1>15 THEN FARB2=FARBZ+1:FARBIL=® 

32838 SETCOLOR 8,FARB,18:SETCOLOR @,FA 

RB2.FARB1:SETCOLOR 3,FARB1,15 

32848 READ A:IF A<® THEN RESTORE 32060 

:GOTO 328048 

32845 SOUND 8,0,18,15:FOR Q=1 TO 11:NE 

HT Q:READ A:SOUND.8,0n,18,18:FOR a=ı TO 
11:NEHT Q:60T0 32018 

32858 FOR a=1 TO 255 STEP 2.5:50UND ®, 

Q,18,18:NEXT Q:50OUND 8,8,8,8:GRAPHICS 

17:CLR :GOTO 188 

32855 REM --ANFANGS+SCHLUSSMELODIE-- 

32868 DATA 243,121,193,121,162,121,144 

‚121,136,121,144,121,162,121,193,121 

32065 DATA 243,121,193,121,162,121,144 

‚,‚121,136,121,144,121,162,121,193,121 

32878 DATA 182,91,144,91,121,91,108,91 

‚,1082,91,108,91,121,91,144,91 

32075 DATA 243,121,193,121,162,121,.144 

»,121,136,121,144,121,162,121,193,121 

32888 DATA 162,81,128,81,108,81,.96,81, 

91,81,96,81,108,81,128,81 

32885 DATA 182,91,144,91,121,91,108,91 

»182,91,188,91,121,91,144,91,-1 


TIPTAB= MAZEMAN 


Zeilen/Block:1@ 
e- 9:13222 
18- 40:18919 
se- 66:16781 
68- 138:10139 
148- 2Z15:13685 
217- 235:25716 
246- Z14:208678 
Z16- 335:18568 
968- 3050:27111 
Z055- Z185:17063 
Z110-11005:22711 
11887-380850:16382 
30860-38158:13649 
30160-30270:14394 
38280-30370:12789 
30380-38470:14250 
384808-38570:13305 
30580-30670:13784 
38688-308798: 14308 
38888-388980: 13326 
38900-38998:12932 


31888-31898:14768- 


31188-31199@:14128 
31280-32828:21878 
TOTAL:393182 
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Defender 


für den Laser 210 + 16K 


Bei der Eingabe des Programmes bitte, 
beachten, daß der verwendete Drucker 
das Zeichen "SHIFT 0” nicht ord- 
nungsgemäß ausgegeben hat! Vorsicht 
bei den Zeilen 50. 720 und 800!! { 


Nachdem Eintippen des Programmes 
wird ganz normal mit RUN gestartet. 
Es kann jederzeit (auch während des 
Spiels) durch CONTROL BREAK un- 
terbrochen werden. 


100-185: Datas 
"Feuern” 
205-2. 
"Wand" | 
255-295: Datas 
"Ziel" 

325-345: Datas 
"Grafik, Rakete” 
610-680: Speichern der M/C Pro- 
gramme mittels POKE-Befehl 

731: Einstellen des USR-Vektors auf 
AI80H (Anfang "Grafik Rakete”) und 
Aufrufdes Programmes. Ergebnis: Die 


für M/C Programm 


Datas für M/C Programm 


für M/C Programm 


für M/C Programm 


SOUND31,1515,1531,1 
PRINTS236, "SAVING M/C 


DATA 58,253,104,254,223,202, 
DATA 70, 0, 1, 50, 0,205, 
DATA 58, 1,163, 111, 6, 67, 
DATA158,159, 6, 19, 35,126, 
DATA254,239,202,214,159, 126, 
DATA254,173,202,254,159, 62, 
DATA194,168,159,124, 50, 8,. 
DATA 23,160,124, 50, 8,163, 
DATA16S, 61, 50, 5,163, 58, 
DATAISF, 62, 0, 50, 5,163, 
DATA205, 92, 52,195, 23,160, 
DATA 9,163, 58, 5,163, 60, 
DATANLO, - 1,7 14.252085, 92, 
DATA120,254, 0,194, 27,160, 
DATA160, 58, 8,163,103, 58, 
DATA 62, 32,119, 5,120,254, 
DATAI1S, 62,255;119, 35,119, 
DATA254, 45,194, 84,160, 62, 


DATA 33, 86,112, 62,239,119, 
DATA180,160, 33,118,112,195, 
DATA 4, 62,239,119, 6, 32, 
DATA190,160, 62,239,119, 6, 
DATA194,203,160, 62, 32,119, 
DATA 0,194,216,180, 13,121, 
DATA182,113, 62,239,119,195, 


DATA 58, 11,163,103, 58, 12, 
DATA119, 6, 32, 35, 5,120, 
DATA 32,119, 43,119,124, 50, 
DATA 58, 10,163,254, 8,202, 
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Rakete wird aufgezeichnet. 

740: USR-Vektor auf AlOOH einstellen 
(Anfang "Ziel”) 

750: Wenn RND (6)=1, dann wird die 
Falle auf den Schirm gezeichnet, wenn 
RND (6) ungleich | wird ein Blank an 
diese Stelle gesetzt. 

760: Wenn RND (2)=1, dann bewegt 
sich die Wand auf die obere Position, - 
sonst geht sie auf die untere Position. 
(Diese Information wird dem M/C Pro- 
gramm mittels POKE übermittelt). 
780: Aufruf der M/C Programme (in 
folgender Reihenfolge): 

Ziel: bewegt bei jedem Aufruf das Ziel 
um eine Zeile weiter nach unten und 
überprüft, ob’die Endposition erreicht 
ist, wenn ja wird die Anfangsinitia- 
lisierug wieder vorgenommen. 

Wand: siehe Beschreibung Zeile 760. 
Feuern: überprüft, ob die Feuer-Taste 
gedrückt wurde, wenn ja wird überprüft 
ob Gut- oder Schlechtpunkte erzielt 
wurden. 


275 DATA 50, 
280 
285 
290 
295 
320 
325 
330 
335 
3409 
345 
600 
610 
620 
630 
640 
650 
660 
670 
680 
700 
705 
710 
715 
720 
730 
731 
740 
750 
760 
780 
800 
700 


10,163, 58, 11,163, 
DATA161,119, 35, 62,162,119, 
DATA 0,194, 68,161, 62,174, 
DATAIO1,161, 62, 0, 50, 10, 
DATA 62,123, 50, 12,163,205, 
GRAFIK RAKETE 
DATA 33,197,112, 62,243,119, 
DATA112, 62,253,119, 35, 62, 
DATA 33, 6,113, 62,255,119, 
DATA11S, 62,247,119, 35, 62, 
69,113, 62,252,119, 


READA: POKEAD, A:NEXT 
FORAD=-24416T0-24337 
READA: POKEAD, A: NEXT 
FORAD=-24320T0-24214 
READA: POKEAD, A: NEXT 
FORAD=-24192T0-24134 


POKE-23801,1 


CLS:PRINTSO, "PUNKTE: 


POKE30882,0:POKE30863, 161 


X=USR (X) 
PRINTS?,""}PEEK(-23803) 
GOTO7S50 


139,159,195, 
92, 52, 58, 0,163,103 
35, 5,120,254, 0,194 
254, 6,202,214,159,126 
254,161,202,254,159,126 


72,160, 33 


POKE-23797, 112:POKE-23796, 123: POKE-23798,0 aa 


POKE30862, 128: POKES0863, 161:1X=USR (X) 


IFRND (6) =1THENPOKE28943, 6: ELSEPOKE28943,32 117» 
IFRND (2)=1THENPOKE-23801, 1:ELSEPOKE-23801,4163, 62,112, 
° 


Rücksprung zu Basic und Aus- 


gabe der Punkte. 


Ihre Aufgabe istesnun, durch Drücken 
der Taste. ”F” einen Laserstrahl abzu- 
feuern. Achtung! Wenn Sie die Falle 
treffen ('F’) oder an die Wand schießen, 
bekommen Sie einen Schlechtpunkt 
(Hinweis: negative Punkte sind nicht 
möglich). Wenn Sie diese beiden Hin- 
dernisse überwunden haben, können 
Sie punkten. Falls Sie das Ziel treffen, be- 
kommen Sie zwei Punkte, - wenn nicht 
bleibt Ihr Punktestand gleich. 

Übrigens - die charakteristischen Ge- 
räusche “sind von Basic her nicht 


erzeugbar! 
‚Grafikbeschreibung: 


Die Klammern bei ’F’ deuten nur 
an, daß der Laserstrahlin Wirklic 
"keit nicht durch die Falle schie- 
Ben kann. 

Wir wünschen Ihnen viel Spaß! 


45,119, 5,120,254, 
163,125, 50, 
125, 50, 


9,163, 58, 


ser 210/310 


° 


9,163,195 


5 


5,163,254,255,194,242 


33, 
124, 


Bor Aal, e2B, 
50, 8,163,125, 
60,750, 35163, 33, 
52, 14, 37, : 6,255, 
13,121,254, 0,194, 
9,163,11l, 6, 20, 
0,194, 51,160, 33, 
S9, 2107 8 
32,119,201 


58, 7,163.254, 
183,160, 33, 86,112, 
35,. 5,120,254, 
32,735, 5,120,254, 
6, 32, 35, 
254, 0,194,185,160, 
128,159 


POKE-23808, 112: POKE-23807,197:POKE-23803,0 


163,111, 62, 
0,194, 
11,163,125, 50, 
58, 10,163, 
12,163,111, 
35, 


32,119, 
15,161, 


ss, 
32, 
43, 
50, 
80, 52,195,160,160 
35, 62,242,119, 
255,119, 35, 
35,119, 35,119, 
255,119, 35, 
35, 62,248, 119,201 


33, 


o 


so 


7 
s 


25 
43 


6 


27,113,126 


1,202 
14 
0,194 


° 


5,120,254 
33 


35 
62 
12,163 
s0 
62 
5,120,254 
62,173,119,195 
11,163 


33,229 
62,243,119 
37 
62,252,119 


CPU 39 


BIT 90 


Das Grab des Pharao 


für den BIT-90 


Finden Sie die Schatzkammer des 
Pharao. 


Sie sind unterwegs in einem dreidi- 


mensionalen Labyrinth und nehmen 
die abenteuerliche Suche nach dem 
verborgenen Schatz des Pharao auf. 
Beeilen Sie sich, die Zeit ist gegen 
Sie!! 


16 REM 3-D-LABYRINTH 


20  POKE 29162, 8: FOKE 21163; 196: Be 


Nach dem Laden des Programmes folgt 
die genaue Spielbeschreibung, 

Ein schnelles3-D-Labyrinth in BASIC. 
Die Geschwindigkeit wird durch folgen- 
den. auch vom TI-99 her bekannten 
Programmiertrick erzeugt: 

Das Bild wird nur einmal auf den Bild- 
schirm gebracht. und zwar in den Zei- 


POKE 49150, 200:POKE 49149, 


FTAB« 


PRINT "MBENDETIGEN SI SIE EINE SPIEL- 
AS=INKEY$ :IF AS="J"60SUB 2430 


aa] 
DAS 


ANLEITUNG?" 2:7? 


IF A$="N"OR A$="J"GOTO 7OELSE GOTO 50 
MIS="ESESESESESHFSGSESBSASBSASGSHFIGIESCSHFSET" :M26="GSBFSGSHFIESDIESGIASGIKFIESDIEIESBSBSASBS" 


M34="GSHFSESESDSESBSASBIASGSHFIGSESDSEI" MUSIC 1, 


len 1240 bis 1500: Die veränderten 3-D- 
Ansichten der jeweiligen Räume wer- 
den dadurch erzeugt. daß mittels’ 
CHRCOL die Zeichen entsprechend 
eingefärbt werden! 
Gesteuert wird mit 
Steuertasten. 


den Cursor- 


. 


-15,M1$,M1$,M26,M36: MUSIC 2,13,M1$,M1$,M2$,M3$: TEMPO 2: PLAY 


LESPEEKI 49156):2"SIE HABEN NOCH ";INT( LE/1@)5" TAGE UND" ,LE-10*INT( LE/10)5® STUNDEN ZEIT." 
?"DAS REICHT FUER "5LE5" SCHRITTE", "BZW. DREHUNGEN. ":? 


UEBER 4966 JAHRE VERBERERESH, BEBLIEBENE GRAB DES PHARAD" 


PRINT "SLEICH KOENNEN SIE DAS FUER 


PRINT "BETRETEN. "3? ?H PRINT * 


.. FALLS SIE ES FINDEN 


Sr 


CLEAR sLE=PEEK( 49150) :5CH=PEEK( 49149) :RANDOMIZE :RESTORE 


DIN T118,10,4),F119, 10) 
READ X,F(1,1),0,),K 
BOTO 278 

IF > BGOTO 258 

IF K<BGOTO 226 


Dream 


m 


325 860T0 590 


320 


Annan 


40 CPU 


FiJ,K+1)=080T0 438 
X=AGOTO 390ELSE GOTD 450 
„ir 428 

üN "Ncoro 460, 470,490, 498,506, 510 
ON X60T0 750, 1030 

ON X60T0 959, 1030 

ON X60TO 938, 1030 

ON AGOTO 758,850, 1939 
ON XGOTO 750,930, 1039 
ON X69TO 958, 938,1030 
IF J=860T0 568 

IF FiJ+1,K)X> 96070 566 
N=5 

50TD 369 

N=1 

60TI 368 

IF K=169T0 668 

IF FiJ,K-1)£> 86070 668 
IF J=860T0 646 

IF F(J+1,K)%3 @G0TO 640 
N=6 

50TE 350 

N=2 


60T0 368 


en en en ın en en en ın en en 
Deo er En de ana 
Se99o9eprE e's 


rn on er 
Au] = 
> = 


er 
= 
“ 


IF J=860T0 760 

IF FiJ+1,K)%> 060T0 700 
N=3 

60T0 360 

IF K<860T0 746 

IF 2=160T0 170 

0=1 

60T0 1938 


IF FtJ,K+1)%> 060T0 170ELSE GOTO 1050 


FÜ-1,K)=0 

T(9-1,K,3)=8 

T0-1,K,2=1 

T(J-1,K+1,1)=8 

TI,K,N=1 

IF J=160T0 849 

J=J-1 

0:8 

E=C# 

IF C=655010 1248ELSE 6070 278 


T(J,K-1,3)=1 
IF K=160T0 928 
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60TO 820 

FiJ+1,K)=L 

L=C+ 

IF T(J,K,2)=160T0 960ELSE 6OTO 998 
T1,K,D=1 

TI,K+H,D=1 

EOTD 1610 

T(,K,2=1 

TU+H,K,N=1 

J=jH 

IF C=6560T0 1240ELSE 60TO 589 
IF Q=160T0 1138 
FiJ,K+D=L 

IF T(9,K,3)<> 16010 1890 
T1,K, 281 

TH ,K,A=1 

6070 1118 

T1,K,3=1 

T(,K#l,=1 

Kaktl 

s0T0 830 


" I60T0 11% 


TIJ,KH, Del 

Je 

Kal 

GOTD 240 

HOME 

CALL CHRCOL (6, 0,15) 
CALL CHRCOL(7, 0,15) 
CALL SCREEN 1) 

READ AS, E6,D$,B$,0$, X, Y,J,K 
CALL CHAR (65, A$) 
CALL CHAR (66, B$) 
CALL CHAR(67, C$) 
CALL CHAR (BB, D$) 
EALL CHARIIOA, *") 
CALL CHARI105, E$) 
CALL CHAR(97,**) 
CALL CHAR(9B, "") 
CALL CHAR(72,A$) 
CALL CHAR (88, B$) 
CALL CHAR(81,C$) 
CALL CHAR(75,D$) 
CALL CHAR(BB, E$) 
CALL CHARIB9, *") 


PRINT 22:29:27" ANSTABE 25), "0"," iH";TABe 22), "0i"," SXH";TABE 21), "BYi"," IXXH ayyi" 


CALL CHREOL(A,F(2,2)-1,F12, 22-1) 
FOR A=8T0 13 

CALL CHRCOL(A,F(2,2)-1,F(2,29-1) 
NEXT A 

PRINT CHRSI 7); 

CALL HCHAR (23, 15,J+48) 

CALL HCHAR(23, 18,K+48) 

POKE 28687, 2:POKE 28488, 0:PRINT LE5"h" 
X=ASC( INKEYS ) 

IF X=25550T0 1850 

IF X<2466070 2010 

IF X224360T0 2010 

121-239 

LESLE-1:IF LEIOTHEN ON X6OTD 1820, 2010, 1759, 1790 
G0TO 1926 

Yzy-1 

IF Y>0GOTO 1780 

y=4 

SOTO 1820 

Yayı 

IF Y<SBOTO 1820 

yzi 

N=J 

N=K 

IF Y/2=INTE Y/2DG0TO 2038 
F(2,2)=16 

F(2,1)26 

NaN-Y#2 

IF TCM,N,V=860T0 2080 

IF XD 16070 2110 

K=N 

IF KC> 96070 2090 

CALL SCREEN410, 0) 

FOR X=BTO 11, 

CALL CHRCOL(KX, 1,8) 

NEXT X 

IF LECIGOTO 2550 


PRINT " iXXXA EyyYi," 1XXihhbbbbhhi YYYi"," iXXXihhbaabhhiYYYi" 
PRINT " iXXXihhbbbbhhi YYYi"," iXXXihhabbahhiYYYi"," iXXXihhbbbbhhi YYYi" 
PRINT " iXXXihhabbahhi YYYi"," 1XXXihhabbahhiYYYi"," iXXXihhabbahhi YYYi" 


PRINT " 1X BYYYin," IKK 


PRINT " iK";TABl 22)5"Pi"," ";TABe 23); "B" 


CALL VEHAR(O, 0, 176,48):CALL VCHARO,2, 104,144) 
CALL VCHAR (8, 26,164, 144) 
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PYYi®," iXK"STABE 21); "PYi" 


CPU 41 


?"SIE HABEN DEN SCHATZ, ABER DIEGIER LAESST SIE NICHT LOS! AUF ZUR NAECHSTEN PYRAMIDE, ZUM NAECHSTEN SCHATZ, ® 
POKE 49150,LE:POKE 49149, SCH+ 
%:227:60T0 78 

IF X&3 16070 1680 

MUSIC 6,-15, "+CQ":PLAY 

SOTO 1658 

F(2,1)=18 

F(2,2)=4 

M=N#AY-3 

IF TEN, N,Y)=060T0 2600 

IF XC) 16070 2119 

J=M 


IF 1CSEOTO 2150 
11 
FÜ,AISTIN,N,Z) 
12141 

NEXT.A 


IF N960T0 2228 

IF YX> 160T0 2226 

IF T(M,N,1)=060T0 2220 2576 PRINT :?:?“NOCH EIN SPIEL?" 

EALL CHAR (98, "O0DFA05E427AO2FB") 2586 IF INKEY$ ="J"CLEAR :60T0 2618 

CALL CHRCOL(4,0,0) 2596 IF INKEY$ ="N"END 

CALL CHRCOL 113, F(2,1)-1,F(2,2)-1) 26006 G0TO 2584 

CALL CHREOL(8,F(2,1)-1,1) 2610 IF INKEYS <> "J"60T0 I0ELSE GOTO 2618 


IF F(1,3)=060T0 2288 
CALL CHRCOL(12,0,0) 
60T0. 2298 
CALL CHRCOL(12,11,F(2,2)-1) 
IF F(1,2)=060T0 2328 
F(2,3)=1 
5OTD 2338 
F(2,3)=F12,1) 
IF F(1,4)=06070 2560 
F(2,4=1 
6010 2378 
F(2,4)=F(2,1) 
CALL CHRCOLIHL,F(2,D-1,F02,4)-1) 
CALL CHRCOL(9,F(2,3)-1,0) 
CALL CHREDL(18,F(2,4)-1,0) MEILEN 
6OTO 1646 
DATA 2,1,2,1,1 
DATA "BACQEOFOFBFCFEFF" , "FFEFFEFFFFFFFFFE" ‚"FFFEFCFBFOEOCOBO" ,"FFIFSFLFOFO70301° ,"O103070FIFSFTFRR", 2, 151,1 
HOME 
?"SIE BEFINDEN SICH IM EINGANG DER PYRAMIDE, RAUN 1,1.SIE SEHEN NORDWAERTS IN DIE ZELLE 1,2." 
?"ALLE WAENDE IN OST-WEST-RICH- TUNG SIND-BLAU, DIE VON NORD NACH SUED SIND ROT." 
ENTWEDER IST VOR IHNEN EINE EINFAR- 7 BIGE WAND ODER SIE & SEHEN "5 
STEN RAUM. SIE 3 B 
JENER RAUM TUEREN HAT UND IN WELCHER 12345678 RICHTUNG. ® 
IHRE AUFGABE IST ES, DIE SCHATZKAMMER DES PHARAD ZU FINDEN, DIE IRGENDWOBEI ?.8 LIEGT." 
322,2" +###% WEITER = "SPACE" Aare"; 
IF INKEYS ©) " "60T0 25t - - : 
HONE :?"DANN SIEHT MAN EINE WAND, AUF DER DAS LEBENSZEICHEN ANGE- BRACHT IST." 
?"JETZT. BRAUCHEN SIE NUR NOCH EINEN SCHRITT VORWAERTS ZU TUNUND DAS ZIEL IST ERREICHT!*:? 
PPTASTENE"?"NACH RECHTS DREHEN: [>] NACH LINKS DREHEN: [X] EINEN SCHRITT VOR: [*] * 
RETURN 
PRINT "... IHRE ZEIT IST UM. SIE _MUESSEN ZURUECK. SIE HABEN "SCH" SCHAETZE GEFUNDEN. " 
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=Commodore 64 


Pink Panther 


für den Commodore 64 


Nach dem Laden und Starten des Spie- 
les erblickt man Paulchen Panther auf 
dem Monitor, der mit den Augen 
zwinkernd-rollend- und Augenbrauen- 
hebend auf das Drücken der Fl-Taste 
wartet, die das Spiel startet. Danach 
fragt der C-64 ”Spielanleitung” J/N?. 
Nachdem er die Daten für die Sprites 
eingelesen hat, gibtmandas”J’einund 
bekommt so Informationen über das 
Spiel. Zum Spiel selbst kommt man 
durch Druck der FIRE-Taste durch 
Joysticks in’ Pos. 2. 

Jetzt erscheint ”Paulchen Panther” auf 
der obersten von 3 Etagen, die durch 
Leitern miteinander verbunden sind. 
Rechts von ihm ist eine glühende Platte 
im Boden, die ihm verbietet, den 
leichteren Weg zu gehen. In der näch- 
sten Etage fliegt ein Schwarm Bienen, 
die das Verlangen haben, P.P. die Nase 
zu: ruinieren. Die untere Etage hat et- 
was besonderes auf sich, dort sind 
mehrere Falltüren zu überwinden, die 
sich im 2.-, 4.- und 6„Level öffnen und 
schließen. Der Aufbau selbst ist in je- 
dem Level gleich, nur die Farben der 
Herzen und die Falltüren bringen Ab- 
wechslung in das Spiel. Die Herzen las- 
sen sich einsammeln, indem man P.P. 
genau davor stellt und auf FIRE 


5 REM 
& REM 


drückt. 2 

Allerdings ist es für Ungeübte nicht 
ganz leicht von der Leiter auf.die mitt- 
lere Etage zu gelangen. Dieses geht nur 
von einer bestimmten Position aus. Hat 
man einige Punkte gesammelt, und ist 
entweder an der Zeit oder an dem ver- 
lorenen Leben gescheitert, so kann 
man sich in eine Bestenliste eintragen, bei 
der jeweils die 6 besten Ergebnisse ge- 
führt werden. Durch Drücken der ent- 
sprechenden Tasten kommt man ent- 
weder wieder zum Spiel oder zum 
Titelbild. 


HC(1-7: Highscore Werte ° 
HC$(1-7): Highscore Namen 

HS: Stelle new Highscore 

SC: Score im Moment 

V: Adresse des VIC 

WX: X-Wert der Wolke 

WR: Richtung der Wolke 

TIS$: Spielzeit 

Z1: Laufvariable für Falltür öffnen 
Z2: Laufvariable für Falltür schließen 
ER: Bildschirmbereich von Paulchen 
XX: X-Wert von Paulchen 

YY: Y-Wert von Paulchen 

KX: Kletternder P.P. 1 

KY: Kletternder P.P. 2 

RX: P.P. gehen rechts 1 


RY: P.P. gehen rechts. 2 

LX: P.P. gehen links 1 

LY: P.P. gehen links 2 

SN: Jeweils eingeschaltet Paulchen 
und Wolke 

PA: Anzahl der Panter 

HE: Gesammelte Herzen 

PS: Umgerechnete X&Y Pos. von P.P: 
für Herz 

LL: Level 1 oder 2 

QC: Bew. Falltüren 

JS: Joystickabfrage 

HE: Farbe der Herzen 

FH(1-3): Frequenz HI-Byte der Stim- 
men 1-3 

W: Wellenform St. I 

W2: Wellenform St. 2 

W3: Wellenform St. 3 

A: Anschlag St. I 

A2: Anschlag St. 2 

A3: Anschlag St. 3 
TH(1-3): Tastenverhalten 
Stimme 1-3 

TU(1-3): Tastenverhalten 
Stimme 1-3 

LS: Lautstärke 

SI: SID-Register 

Die restlichen Variablen sind Lauf- 
variablen innerhalb von FOR-NEXT 
Schleifen oder beinhalten Zufalls- 
zahlen 


HI-Byte 
LO-Byte 


3 RS=18:FORISSTOLSTER-1:HCCII=RS:HCFCII="OBI" :RS=RS+1A:NEXT'HCCOI=9888 


POKES3231 15: POKES3288, 15 


cc) 1984 BY AUERISSIDSFITEN GAMEWARE LTU 
MEIEISOFT FROUDLY FRESENTS 


PRINT"; 
PRINT"M» 
3 PRINT" 
3 PRINT" M" 


PRINTTABS112"S Wut ie 
FRINTTRED: a a LITE rg 


PRINTTABCIII: "au = 
PRIHTTABE12D:" 

FRINTTABS123: "84 

28 PRINTTAB«123: "84 7 

: FRINTTABCLSI UT 


a2 a ver 
»Guummoı mw 
ww, . 


Cd 


wov 


FEINTTAEL IS" mA MN 


PRINTTAB<133, "LM .4 Im. 
FRINTTABE1OI:" ET TR / .. 


.——Ll 


Am. WU 


PRINTTABE 12)" MD Ya UN 


PRINTTABA11D:"M/ MN 

3 PRINTTABE 173; Sn” 
FORI=1T0180: NEXT 
PRINT" ES 
"PRINT"R ee) 
A=INTERNDC1IK12) 
PRINT" 


zu na 


PAULCHEN THES TI TAT SINKB Tu DAN SENTER 
mm 


ONKGOSUB78, 88,38, 109, 110,120,139,148, 150, 168,170 


FORI=1T0589: NEST 


GETA$: IFAS="w"ANDLL=@THENZ208 


IFAg="W"ANDLL<>OTHENZ202 
FÜKE198,2:G0T059 
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SFi® = START 


CPU 43 


Commodore 64 


PRINTTRBAUID. "vw = 93 3 vr 
PRINTTABC122:" 52 54 sa 
RETURN 
PRINTTRBA1D:'uu = am a ww 
FRINTTAB<123;"4 zz 05 094 2) 
RETURH 
FRINTTRECIID:'gw = ae a vw 
PRINTTRB<12);" LE u ru Er si 
RETURN 
PRINTTREC1IH,"gUw = am a we 
PRINTTAB<129: "4 zZ [u 5 si 
RETURN 
PRINTTABC1ID:"wWwu = 93m a vr 
FRINTTAB(12);" 4 ze Bde ud = 
RETURN 
PRINTTHBAU ID: "WW HE om vw 
PRINTTAB(123: "4 = mi si 
RETURH 
PRINTTRBC1ID:" WU m amms d wer 
PRINTTAB<12>; "4 Bm u sg 
RETURN 
FRINTTABC11D "U wW = Deyı mas a vr 
PRINTTAB<12::"4 m mm 54 Li) 
RETURN 
PRINTTABE11D: TE u a N 
RETURN 
PRINTTABC11): "TIEF wa ner ur N 
RETURN 
FORU=1T02 : PRINT" SUN" : PRINTTAIBE113: "0 wg u. ur weg ug m 
PRINTTRBALDSYT I I ı ww 
FRINTTABC1Z Le bl si 
PRINTTAB£ 125: "29 Na Yan” [1 
FORI=1T0138 NEXT: PRTNT " STarsng 
PRINTTABC11D: "a ei WAT. TEN U 
PRINTTABE11D: "uw m 
PRINTTAEC129; "4 
PRINTTAB« 125; "34 
FORI=1TO168: HEXTW: RETURN 
PRINT" SÜEdrIMTEDNDDFTTDNTRUSLEDKTIETUSTTETETETUN ! MOMENT BITTE ! ":GUSUB4DBAR 
; SPIELANLEITUNG ? ":POKE193,8 


IFA$=".]" THENGOSUB3Q998 : GOTO2A8 


IFA$="N"THENZOS 
IF£PEEKS632@)AND15)=BTHENGOTOZOS 
5070203 
PNKER2, 6%16+3: POKEH2., 8%16+5 
FOKER3, 6#16+3: PÜKEHS3, Sk16+5 
POKER, 6#165+3: FÜKEN, BR16+5 
FORI=1T03: POKETH£ ID .6:POKETLX IP, 2: NEXT: YR=@: VE=B:YT=8 
FORWD=1T07 
FORBI=1Q+UR+VETOFGHYRSTEPS 
POKEFH« 19,1 :FOKEFHCZ) , W1-3:POKEFH< 3) , 91-6: POKEW. 65: POKEN2, 65: POKEW3, 65 
FORI=1T01@:NEXTI:POKEFH(2) , 16-YT :FOKEUZ, 65 
FORI=1T02:NEATI,Q1:YT=YT+1:VR=YR+15: VE=YE+1R: NEXTUD: POKEW, A: POKEWZ,® 
POKEMS. 9: POKER, 1#16+1 :POKEH, 2: FORI=1T03:FOKETHC I), B:POKETLSIS,L:NEXT 
FÜKES3288, 9: POKES3281. 8: PRINT"IT"; h 
PRIN A TIME S09 SCORE 8 TRIES 3 m"; 
FRINT"A L 
FRINTaO wm; 
FORI=1TO1S 
PRINT"A ® am; 
NEXT 
PRINT"724 7 Br, 
PRINT" x >) 
PRINT" 
FORI=1934702923: POKEI . 224: POKEI+54272,14: NEXT 
:GOT0288 


DERRDDBBDRNERBDERIE -—LIBBBRNDDBREBI 
FRINT" IRRE ANIBBEWIDBRDEBEBBIRN 
PRINT" orten Bemmmdı ATTTTTTTTTTT 
FRIHT" RB IR 
3 FREIMTBBER Hm 
EIHT" Ren 


FEINTIMRF TE Fk FA du un, 
FRIHT" ALL An urn 


FRINT" 


LT] JESTTTITT T1T 7777777 77777777777 7700787 
PRINT "MGi 


FREIH 
RETUFH 
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FOKEFH£13,55:FOKEU.17 
PRINT "' SBEBIMUETEDSEON ENDETE Au  POIKEU, DB: RETURN 
A POKEFH“12,45:FOKEM, 17 


525 PRINT ARÜDUDALTDLTUDTDTT TEL TETETE re" POIKEL,O 
27 RETURN 
3 FOKEFH£1),5S:POKEW, 17 5 
N ER nenn LLLLLLLLLLL :POKEW, @: RETURN 
POKEFH« 19,45: POKEW. 17 
PRINT" ERLERNTE ET FE" :POKEN,O 
RETURN 
FOKEFH<1) 55: FOKEU, 17 
PRINT!" SURUAKUDGBELSTETRTETNTETTELE TE DE nm" | POKEN, Z: RETURN 
POKEFH£ 19,45: POKEW, 17 
PR UT "SOMIT DET EE SE" SPOKEN,O 
RETURN 
3 POKEFH£1),55:POKEW, 17 
PRINT" SHOUSUNTEOSUEURDELSÜSTOLKTSTSTSTETTE DD "| ECIKEW, 2: RETUR 


POKEFH«1?, 19@:POKEU. 65 
PRINT RL EEE 
RI I MEI H-ERRI 4 
KEN. GRETI IRN 
POKEFH« 


PRINT" une } 8 una 
FOKEW,B: RETURN 
ea :HF=2 
POKEY+B, 130: POKEY+3. 89: LX=8:Lr=9: 89: KN=130 RK=2:RY=3 0 KR=4KY=SER=1:PA=3 
POKEY+21. 16+64 : POKEY+16, 9: POKEV+13, 137: POKEY+12. 140 :UR=4WN=137:TIE=" 09009" 
! JS=PEEK (565320) 

IF@PEEK(W+319=@) THENGOSUB3AGR 

IFLL=ZANDY=13OTHENAC=ACH : IFOC=SSTHENGT=B :GOSUB1 200: GOSUB14MA 

IF JSAHLID=OTHENGOSUEISOR: N) 

\ NSOSUEISOR: GOTI1E 

J i 5 SUB1798: 60701445 

IE JM, [HENL.-SUE1BB0 GOTGIW4S 

THENGNSUFSERE 


4EÜTHENUR=4 : GOSL1BEIA 
En ÖTHENNR=3 : GOS1BESE 
a) ANDYY=14SANDER=1THENGOSUBS00G- 
IR" ;RIGHTEXTIE,SO 


HENGOTOSBSE 


GOTOILEGG 
ec Z1=21+1: IFZI=4THENZI=O 
DNZI+1GOSLIBEAR, 620, 640,550 
RETURN 
2Z2=22+1: IFZ2=4THENZ2=A 
a ONZ2Z+1G0SLIBEL1B, 630, 659.570 
RETURH 
THENRETURH 
IFER=2ANDSX<>SATHENRETURN 
= GOSUB2039: RETURN 
1596 ANDAAT>I3STHEHRETURH 
1566 ANDMALZBATHENRETURN 
1597 SUB2208 :RETURH 
1799 IFTY=SIORFY=1IBORWVSL4SORYY= 146THEN1715 
1718 RETURN 
1715 IFY'rF=146THENYT=145 
1785 GOSUB2E04 
1738 RETURH 
1509 IFHr=S90RT=19Q0RT=1450RT 1 4ETHEN1S15 
1518 RETURN 
1815 IFFY=146THENFr=145 
1385 GOSUB240G 
1338 RETUFH 
1333 GOTO1@1E 
2988 FOKE=HC13.25:POKEM. 123 
2028 KA=4THENKA=E : K'r'=7 :SN=8+64: GOT02038 
2025 THENKA=4: K'r'=3: SN=4+64 
2u30 Y+KA AR: POKENHKNT, VE FOKEY+Z1 SH 
2935 IFER=2THENPOKEY+1S,5N-&4 
2948 Yr=h'r-4: IFTTLBITHENFTSB9 
2137 FOKEU,@ 
2133 RETURH 
2200 FOKEFH“1).28:POKEW, 129 
2220 IFKA=4THENKA=E :K'r=7  SN=5+64:G0T02238 
2225 IFK8S=6THEHKA=4:KY=5:5N=4+64 
2230 POKEY+EA, AR: FOKEY+KT 7: FOKEY+21,5N 
2235 IFERSZ2THENPOKEY+1E.SN-64 
2240 Yy=r+d: IFFTHLIATHENGT=190 
2337 FOKEN,A 
2399 RETURN 
ze POKEFHX1).30:FOKEM. 123 
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THENRE=2 RY=3:SN=2+64GOT02430 
HEHRA=E:R=1:5N=1+84 
Ra, Sa FOKEWHRT FT 
21,5H 
THEHPOKEY +16, 54-54 


IFER=1AND#A>=234THENK#=B: ER=2 :POKEV+16,5N-54 : FÜKEY+21 , SH: GOT02597 
IFER=2ANDAAP3SSTHENAR=35 
POKEW,@ 
RETURH 
PÜKEFH“ 15.30: POKEU, 129 
IFLA=8THENLA=18:LY=11:SH=32+64 60102638 
3 IFLA=1ATHENLA=8: LY=9: SN=16+64 
POKEY+LS #3: FOKEN HL 
FOKEW+21,5H 
IFERSZTHEHFOKEY+16,SH-54 
KASAR-5 
IFER=1ANDAAGLZSTHENAR=2I 
; IFER=ZANDAHSOTHENRA=233:ER=1:POKEY+1E,8 
FOKEU.E 
„RETURN 
IFrr=196THENGUSUEERAG 
FORD=1TDE _ 
TF=INTERHDE 13499) +139: POKES3ZS1,18 
POKEFH“ 13, TF'POKEW, 33: POKEFH(Z), TF-199: FOKEUZ, 33:FORT=1T03:NEATT 
645 POKE33231,@:NEATD:FOKEU,Q:FOKEUZ,G 
S POKEY+B. 139: POKEY+9, BI LA=b Lre9 re = FA RH=ZRT=3 Ks Kr=5tER=1 
POKEV+Z1, 16454: POKEV+15,0 
FA=FA-1:POKES3281,0:G60T0428G 
RETURN 
FRINT"SCRMRBRDBBRNDBRENDREDDEDDERERDRHDH nA" ; Fi 
IFFACLTHENGOTISERR 
FÜRT= na, HEAT:GOTOSATA 
& PO THAT STB ETRGT RETTEN RD  " 
MIAIIGAME--DOYER" 
una [_ 40 
FORI=1TOSS@B: NEXT 
FOKEW+21,8: POKESFZ258, 0: HE=@:LL=1 
FRINT"I":FOKES3281.08 
a PRINT" a Te N aan Yon Va Lloret 
FRIHT" N ot raten) 
FRIHT" Pe ae EZ 1] 
HH=B: HS=8: FÜRU=1T06 : IFSCHHESUDANDSCCHEEU-LDTHENHS=L:NH=1 
HEXTU: IFNH=1 THENFORN=GSTOHSSTEP-1 :HRCHFLISHECNI :HCEEN+LD=HE$HCND :HEXTN 
IFHH=1 THENHH=B : HESHSI=SC: GOSUFIARAE 


FRINT" 
FRINT : 
9 FRINT"NI @F3@ FOR TITEL PAGE 

PRINT"M wF5e START GAME 
GETAE : IFA$="IM" THEHSC=@ HE=@: GOT0208 
IFAg="@" THENHSC=9 : HE=8:G0TO18 
GOTOS3a8 
50705993 
POKEFH( 12,288: POKEFH«@ 2). 139: PÜKEFH@3> , 188: POKEW, ea FOKEWZ ‚129: POKEW3, 129 
FORTU=1T0128: NEXTTLU: FÜKEM, 8: POKEWUZ, 8 

gaas FOKEU3,G:FOKELS,1S 

sag4 POKEW3.8:FOKELS,15 

5005 FORII=19ATNZSBSTEPZ . 

5219 FOKEN+RY,II:FOKEW+LT, II: FOKEY+Z1,SN 

2a2a POKEFH«1),250-I1: POKEFH<2), 2392-11: FOKEW, 65: POKEWZ, 65 

ea3a FORTU=S1TO1B:NEAT'TU:NEATII:POKEW, @:POKEWZ. MA: RETURN 
Ar=c CIE AR FI 
PS=Ar+Aa+1B24 
IFFEEK(FS)=@3THENPOKEFS: 32:60708948 x 

33 RETURN 
SC=SC+5:FRINT'IMBDDERBRRDBRBRDDBBNDBI" SC HE=HE+L 
> FORWI=1TNZ 


KTTT: NEXTWI: :POKEN. A POKEN2, a: POKENS,@ 
:G0S11B3998 : HE=& 
=1bOSLBIGAG : HE=A 


Bag" SHF=HF+L: IFHFSSTHENHF=2 
HENHF=4 
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YRSTEFS 
EFH« 23 ,01-3:FOKEFH@ 3) 91-8: POKEN, 65: FOKEW2. 65: POKEW3,65 
Hl T:POKEFH% 23, 15-WT :FOKEWZ, 65 
NESTT.EI EYTSYT- 5 'E+18:NEHTUD:FOKEW. A: POKENZ. 3 
POK 1703: POKETHET?,B: POKETL BEERT 


AT" BERISIEINN 
RETURN 
=1HOSCHSI="" 
FRINT SELTEN FLEASE ENTER YOUR INITIALST 
FORI=1T03 - 
5 FOKEISEI+L.L 
3 9)ALDSASÖTHENE 
26 
=1:FORO=1T0128:GOTO1ERER 


:FORI=136E1T019685:FOKEI. 32 


FRIHT" SHielstetsrn ":RETURH 
FRINT"III"; :FOKESS2SR, 2: FOKES32ZE1.11 
PRINT" FPAULCHEN THE BFIHK MPANTERM. 
FRIHNT" MSTECKEN SIE IHREN JCTSTICK IH FORT #2. 
FRIHT" in} 
FRINT" MELN SIE FER KHOPFDRUCK ALLE. HERZEN 
FRINT" EIN, WENM P.P. MIT SEINEM KOERPER GENAU 
FRIHT" “CR IHNEN STEHT. 
FRIHT" EWER : 
MIT IPF IH DEH EIENENSCHWARM 
LAUFEN, AUF DIE GLUEHENDE FLATTE 
INT" TRETEH, AUF EINE “HICHT VORHANDENE” 
INT" LEITER STEIGEN. UND DURCH DIE DFFEHNEN 
a PRINT" FALLTLUEREN INS WASSER FALLEN 
IF<FEEK 56323) AND1 STHENRETURN 
GOTOzaZaR 


2: READA:POKE7O4+H1, 5: NEXT 
| 2 S2:RERDK:POKEBSEHT, :NEAT 
FORI ATOE2: REAL :FOKESIG+T,, 
F 5 FORI=ATOSE : READA :FOKEIGR+T, EAT 
5 FÜRI=SATOE, FOKEIEBAB+T.A:NEAT 
5 3 FOKEIGES4+L,A: NEST 
52: RERD#FOKEIE128+1.%:HEAT 


2048, 11:FÜKEZ841. 13: FOKEZA42, 14: FOKE2943, 15: POKE2044 , 259: FOKE2945, 251 
POKEZG46, 252: POKEN+29, 127 
FÜKEY+39, 1: POKEY+4R. 10 
POKEY +41, 19: POKEN +42, 16 
2008 u FÜKEY+43, 18: POKEY+44, 16 
4ausd POKEW+43,1 
40100 SI=54272:FLC19=ST:FH@19=SIr1:FLC29=S147 :FHO29=SI4H8 FLC39=SI414 FHC3)=SI+15 
ale ? i a :TLE2I=$1+9: THS24=81H10: TLC39=SIH 16 THI39 = 
4192 R 
40103 : I+13: H3=S1+28 
4a1a4 =: : I+11:4U3=51+18 
Yale +24: POKELS,15 
42111 POKER. S#18+2: POKEH. F#löt4 
4a11z2 FOKERS,2#15+2: FOKEHS, 7#15+4 Saz5g DATA 1,04,128,1,24.128,.1.60,128 
42113 POKERZ.3#16+2 :POKEH2. ?#16+4 & DATA 1,59,0,48,216,0,72,24.8 
49115 FORJ=1T03:POKETH<J),8:POKETL(J),B A DATA 132,24,4,132,215.0,137,60.8 
48115 POKEFHX.I3. 14: POKEFLET5, 182: NEXT 5 DATA 137,114,0.4,129,0,3,64,128 
41522 RETURH 5 IATA M,132.128.1,193.0.0.2.0 
ssg18 DATA 0.25.8,5,.30,224,0,15,224 Sazca DATA M.2.9.9,3.8,9,3.125 
20 DATA 9,65.96.0,2.0.9,15.9,.8.23.8 ü DATA 9,152,.0.7,129.0,7.240,0 
a DATA 8,214,152:1,54,112.2,46,8 a DATA 8.265.0,0,64.0.0,.240,0,0,232 
a, DATA 4.71,8,4.142,224,9,22.32 IATA 0,25,197,0,14,198,128.0, 116 
DATA 1,33,8,0,195,0.0,5,0.0,2,0,0 DATA ©4,9.,225.32,7,.113.32.4: 104 
DATFI 3.0.8. 17.8,0,25.128,4,29,192 IATA 168.8. 186,128.0,99,4,8, 160,0 
3 DATA 9.09,0.4.25,050,20.224,0.15 IATA 9,144,0,8.144.0.0,1236,8 
4 DATA 5,5,968,0,15,0,9,22,152 Sassa DATA 1.152,.8,3,154,0 
DATA ‚112,24,142,9,32,135,0 Ssag4ac DATA 
DATA 224,2,30,32,2,38.8,2.63 Sad4le DATA 
DATA 8. 22,0,.2,.128,0,8,54 Sa42o DATA 
DATA E ‚1,224,40,1,128,56 9428 DATA 
4 DATA B. 43 Sad DATA 
5 DATA 4, ‚g,1.126.0.1.60, 8, 1,68 4 DATA 
DATA 4,122,1,59,128.0,220 DATA 
DATA 1: £ 4,24,0,48,24,0 5a0 DATA 
DATA 72 } 54,128,68,51:128 a DATA 
DATA 3:.28.0,34:121,0 DATA 
DATA ee, 2,0.54,0,8 : 3 DATA 
DATA ‚122,0 4542 DATA 
DATA ‚2.6.128,.128,0,60,128 So DATA E 


f: 2 
224.0,119,2 .0,225.4 
28,4.120,64.9,199,64.8 
‚1,33,128,1:.16,8,2,16 
a,20,7.128,28. 7,128 


Bes 
als 


zaanee ar DNii- Mor 


2,0,.125,0.0,.32,4 
2.,22,0,2,9,0 
‚1,.40,0 
ER 9.4,0,8:.0,0,8 
2,9,0:.0,0,0:0,8, 3. 9.0,0, 2.2.0, 6 
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für den Commodore 64 


Wir schreiben das Jahr 3004. Die Erde wird von 
den Wesen des NOHUC-Planeten bedroht. Denn 
die ewig mampfenden Hucnos, sie bestehen aus 8 
Rassen mit 15 verschiedenen Hautfarben, haben 
essich zum Ziel gemacht, die gesamte Erde aufzu- 
fressen. Sie sind die einzige Rettung, weil sich Ihr 
Raumschiff im Weltall in einem schwarzen Loch 
befindet und so von Hucnos nicht entdeckt werden 
kann (schwarze Löcher kann man nämlich weder 
essen noch sehen). Mit Ihrer Laser-Bordkanone 
müssen Sie nun versuchen, die Invasoren in 5 
Sektoren zu vernichten. ACHTUNG! Ihre Zeit 


978 REM 3 *%* DATEN PRUEFUNG ## 
979 READQ:! IFQ<BTHENSB1 

989 A=A+1t2=2+0:60T0979 

981 
982 
983 PRINT" DATEN-ANZAHL RICHTIG" 
934 
9385 PRINT" DATEN-LWERTE RICHTIG" 
9836 PRINT tPRINT"PRESS RETURN" 
987 REM 


IFA<442THENPRINT"iQ DATEN-ANZAHL ZU NIEDRIG 
IFAI4SZTHENPRINT"Ü) DATEN-ANZAHL ZU GROSS 


ıPRINT:PRINT }PRINT"GOTO 1880--u" 


ist begrenzt! 
Viel Glück! (Sie werden es brauchen!) 


Steuerung: Mit Joystick II lenken Sie das Faden- 
kreuz, mit Fire wird ein Schuß ausgelöst 


Gewinnstrategien: Beim Schießen empfiehlt es 
sich, den Fire-Button ca. 1-2 Sekunden lang zu 
drücken. Längere Dauerfeuer haben wenig Sinn, 
da während dieser Zeit Ihre Laserkanone sich 
nicht bewegen läßt. 


}*:G60T0984 
1":G0T0984 


IFZ< 335544 THENPR INT"DATEN-WERTE FALSCH I!" 


SEND 


988 REM DIESER TEIL ? KANN NACH PRUEFUNG DER DATEN GELOESCHT WERDEN !!! 


989 REM 
938 REM 
391 REM 
392 REM 
943 REM 
9394 REM 
335 
36 
997 
398 
339 
1000 
1001 
1882 
1883 * 
1004 x 
1805 * 
1208 * 
1887 « 
1008 | * 
* 
* 
x 
* 
* 


""-CLR/H+SHIFT 
“"B"CRSR LEFT 
"B"-BLAU .- "Bi" -GRN 
"L*-CYN "a°’-WHT 


"a" -CLR/HOME 
"W'CRSR DOLUN 
"IR" -BRAUN 
"a" -ROT 


BERKER IEKEKK 
NEUTRALE ZONE 


<C) 7.1984 BY 


1889 
1818 
1811 
ıa12 
1813 
ıa14 
1815 
1816 
1817 
1818 
1819 
1828 POKES3281,8 
1821 V=53248 
1822 FH=S+1 
19823 GOSUB 


GABELSBERGERSTR.? 
6428 LAUTERBACH 1 


* 
* 
* 
x 
* 
UWE HEISS Bi 
* 
* 
TEL 86641/74397 * 

* 

* 


LEaS SS E2 2 222 222 2 22 22 22 2223 


:POKES3288,8 :PRINT"I" 

:5=54272 :N=8 
:FL=S W=S+4 
1146  :REM 


ın=S+5 
DATEN; BEGINN 
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ıAl=B :A3=8 :82=148 
IH=S+6 !L=S+24 


!Y=148 
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GOSUB 1979 :REM BILDSCHIRM 
A3=A3+1 :M=A3X5 :T=48+4xM :!A2=B8 
IFA3>5 THEN 1137 

IFAS<4 THEN N=N+5 
B=INT(CRND(1)*88)+188 :2=8 
FA=INT{RND(1) #159 +1 
RA=INTCRNDC1)#8) +1 3SN=CINTCRND(1IKSI+1) ESP=SNxk2 
POKEV+39+SN,FA :POKEV+21,(65+21S5N) 
FORC=18T0258 STEPN !POKES+4,8 
POKEW,® :POKEL,15 :POKEFH,1 :!POKEA,188 :!POKEW,129 
Z=2+.7 :T=T-.3 S1IFT<=OTHENIIIA 
TR=PEEK (V+38) 

ON RA GOSUB1866,1668,1870,1872,1874,1875,1676,1877 
F=PEEK (56328) :TR=PEEK (V+38) 
IF<FANDISE)=8 THEN1849 

IF<FANDS)=B ANDX<248 THENX=K+15 
IF<FAND4)=B ANDX>35 THENX=X-15 
IF<FAND2)I=® ANDY<238 THENY=Y+15 
IF<FANDL?=® ANDY=)73 THENY=-Y-15 
POKEV+B,X tPOKEV+1,Y 

G0osUB 1182 

NEXTC 

POKEV+21,65 

GOTO1B28 

REM *%* SCHUSS ** 
TR=PEEK (V+38) 

POKEL,15 

POKEA,1® 

POKEFH,1:POKES,1I 

POKEW,128 :POKEW,129 :POKES3281,3 
FORQ=1T0288 STEP4 !POKEFH,Q NEXT 
POKES3281,8 

FORD=1TO188:NEXT 

IFTR=8 THEN GOTO 1845 

Al=Al+SNK1IO ıA2=A2Hl 

IFA2=M THENIB8S2 | 

FORD=1TO2808: NEXT 

FORI1=15T08 STEP-.5 

POKEW, 1} POKEL , 15:POKEN, 15:POKEH, 1! POKEFH, 1085+1x18:POKEFL,185+1#18:POKEW,33 
POKEV+39+SN,I INEXT 

POKEW,® :POKER,® :G0TO1B28 

REM ** FLUGBAHN *%* 
ZY=SIN(Z)x38+B 

POKEV+SP,C tPOKEV+SP+1,ZY :RETURN 
ZY=SIN(Z)438+B 

POKEV+SP,ZY :POKEV+SP+1,C !RETURN 
ZY=SIN(Z)x30+B 

POKEV+SP ,255-C 1POKEV+SP+1,2Y !RETURN 
ZY=SIN(Z)x38+B 

POKEV+SP,ZY !POKEV+SP+1,255-C !RETURN 
POKEV+SP,B tPOKEV+SP+1,C t!RETURN 
POKEV+SP,B !POKEV+SP+1,255-C RETURN 
POKEV+SP,C :POKEV+SP+1,B:RETURN 
POKEV+SP ‚255-C IPOKEV+SP+1,B !RETURN 
REM ** BILSCHIRM *% 
POKES3265 ‚PEEK (53265) AND233 
FORZ=1T088 

K=1NT(C988%xRND (19? 

POKE1124+K,46 :POKESS396+K ‚2 

NEXT 

POKES3281,98 :POKES3289,8 

FOR1=49T0968 STEP48:FORJ=38T039 
POKE1824+1+J,168 :POKESS296+1+J,9 
NEXT ENEXT 
FORI=1TO16:READ@:POKE1824+459+1,Q:POKESS296+459+1,98:NEXT 
PRINT""TAB< 191) "ZWNEUTRALEERBERERERE ONE BETDUEREBICC) BYE LE EURE SS 
POKES3265 ,PEEK (53265)0R16 :RETURN 
REM *%* SECTOR ,BONUS #%* 
FPOKEH,248 :POKEL,15 :POKEW,17 

POKE 1924 +458,A3+48 

FORJ=1T023 :FORI1=1TOI6 
POKES55296+458+1,1+J INEXT 
FORG=8T0259 STEP25 :POKES+4,17 

FOKE S+1,6 :NEXT :POKES+4,32 
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NEXT 

Ti=Tx2 

PRINT""SPC<9) "MEET IMER BONUS a" INT<TIY"M OD" 

T=T-.5 :T1=T1-1 sAl=Alel 

IFTi=<® THEN 1188 

FORI= 8 TO 24 :PÜKE S+1,8 :NEXT 

POKE S+1,138 ıPOKE S+5,9 

POKE S+15,38 !PÜKE S+24,7 ıPOKES+4,21 

SOSUBL1182 ; 

FORI1=1TO18B:NEXT 

G0T01833 

FORI=1TO16 :POKESS296+450+1,8 :NEXT 

PRINT"B"SPC<9) "um “ 

60T01825 

REM ** VERLIERER #** 

FOR1=8T024 :POKES+1,8 :NEXT 

POKEL ‚9:POKEN ‚255: POKEH ‚255 

FORG=1T028 :FORI=1T0158 STEPI® 

POKES+1,1 :POKES+4,17 :NEXT 

FORI1=158T01 STEP-18 :POKEFH,I1 :POKEW,17 :NEXT :NEXT 
POKEL ‚15:POKEFH,2:POKEW, 128 

POKEV+21,8 

PRINTSPC < 15) " OEReIKDBchEn 

PRINTSPC<ISI"M IA * 

PRINTSPC<15)'@ 4 — — BNIREEEREELT m 9 ww " 
PRINTSPC<15)"M WTTTTE W/EBERRREREI 4 \ / W/":FOR1=1T10100088 
PRINT"IZSSIE HABEN ES NICHT GESCHAFFT, 

PRINT"DIE ERDE ZU RETTEN !!!* 

PRINTPRINT"RSIE HABEN "Ai "PUNKTE 

PRINTIPRINT*RIHR RANG IST" 

ON INT(A1/1888) GOTO 1129 ‚1138 ‚1131 ‚„ııs2 

PRINT"M BLINDER PASSAGIER" :60701133 

PRINT"M MAJOR" :G0T01133 
PRINT"# LIEUTENANT* :G0T01133 
PRINT" COMMANDER" 
PRINT! INPUT"IBIOLLEN SIE ES NOCH EINMAL VERSUCHEN" A$ 


GM —— 


IF LEFT$SCA$,1)="N" THENPRINT!PRINT"RSOSO-SIE WOLLEN SCHON AUFGEBEN ?!*":END 


PRINT"B AUF EIN NEUES "IFORI=1T02888 :NEXT :G0T01028 

REM ** GEWINNER *%* 

POKEV+21,8 !PRINT!PRINT"WBSIE HABEN DIE ERDE GERETTET !t!* 
PRINT:PRINT"ASIE WERDEN ZUM COMMANDER BEFOERDERT ER 
PRINT:PRINT"SIHRE PUNKTZAHL ı "Al 

FOR1=1T0188:FORJ=1TO4B NEXT 

POKEL,8B :POKER,2B !POKEFH,28 IPOKEW,32 IPOKEW,33 !INEXT:IPOKEW,®O 
PRINT:PRINT: INPUT"WWOLLEN SIE EINE WEITERE AUFGABE ANNEHMEN"SAS 
IFLEFT$<AS$, 1)="N"THENPR INTIPRINT" * AUF WIEDERSEHEN !!! »"1END 
PRINT" OK, NOCHMAL": FORI=1T058B8: NEXTIGOTO1928 

REM "*%* BEGINN +* 

FOR1=1T09:PRINTINEXTIRESTORE 

PRINT" BNILLKOMMEN BEI ANEUTRALE ZONE" 

PRINT:PRINT"M BITTE WARTEN!" 


POKEV+28,32 ıPOKEV+37,6 IPOKEV+38,4 IFORI=1TOST!POKEV+39+1,I+1 INEXT 


POKE2841,13 ıPOKE2842,14 ıPOKE2843,15 tPOKEV+27,62 

POKE2844,192 ıPOKE2845,193 ıPOKE2848,194 IıPOKE2946,15 
POKEV+16,64 tPOKEV+12,25 !POKEV+13,198 ı!POKEV+45,8 

FORI=8T062 :READQ !POKE832+1,Q INEXT 

FORI1=8T062 +READQ I!POKEBSS+1,Q INEXT 

FORI=8T062 :!READQ :POKES6SB+1,Q INEXT 

FORI=8TO62 !READQ IPOKE12288+1;Q INEXT 

FORI1=8TOS2 :READQ ıPOKEI12352+1,Q INEXT 

FORI=BTO62 tREADQ tPOKE12416+1,Q INEXT 

POKEV+21,127 :POKEV+29,62 !POKEV+23,62 

FORI=3T011 STEPZ I!POKEV+1,198 IıNEXT 

POKEV+2,58 !POKEV+4,188 tPOKEV+B,15B :POKEV+8,288 !POKEV+1D,258 
PRINT" AxröraxZr ANEUTRALE ZONE Ahasiieas® 

PRINT’ ES (C) 1984 BY AUWE HEISS" 

PRINT"IIBBNIR SCHREIBEN DAS JAHR 3884. DIE ERDE" 

PRINT"WIRD VON DEN WESEN DES NOHUC-PLANETEN" 

PRINT"BEDROHT! IBIER,ALS EINZIGE RETTUNG ‚HABEN" 

PRINT"DIE SCHWIERIGE AUFGABE 5 SPACE SECTORS * 

PRINT"VON DEN ANGREIFEN ZU BEFREIEN! SACHTUNGE 

PRINT"IHRE ZEIT IST BEGRENZT! !TJ VIEL GLUECK! 
FRINT:PRINT:PRINT" * SUSE JOYPORT 2 «#" 
PRINT "zug 18 28 .38 48 sa" 
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Commodore 64 


1172 POKEL,15:POKES+2 ,8:POKES+3,12 
1173 POKEAR,28:POKEH,® 

1174 FORI=1TO16 :POKEW,64 tREAD HI,LI,D 

1175 POKEFH,HI tPOKES,LI -tPOKEW,65 

1176 POKEV+44,1 

1177 FORJ=1TO D STEP.75 NEXT tNEXT, = 

1178 PRINT" Ei * FIRE #" 

1179 IF <PEEK«(586328)>ANDI16) <) 8 THEN 11793 

1188 POKEW,8 tPOKEV+23,64 :POKEV+29,64 :POKEV+21,8 tPRINT"U" 

1181 RETURN 

1182 PRINT'BS HITS "A2"M SCORE "Al"M TIME "INTCTY"M "RETURN 

1183 REM *%* SPRITE DATA %*%* 

1184 DATA 8,8,8,8,8,8,8,126,8,7,255,192,31,187,248,57,239,56,,56,254,56 

1185 DATA 31,239 ,248,15,215,224,15,125,224,61,2393,128,121,198,124,249,198,62 
1186 DATA 224,1908,39,224,48,39;112,0,698,56,8,112,12,8,192,2,1,80,8,8,0,90,0,8 
1167 DATA 8,8,8,8,0,0,8,0,80,8,0,0,8,0,0,8,0,0,9,254,0,3,255,128,7,69,192 

1188 DATA 14,48,224,28,16,112,63,255, 248,234,170,174,255,255,254,61,85,128 
1189 DATA 31,255,248,0,8,8,9,8,0,0,0,0,0,0,8,8,0,0,0,8,0,0,8,0,8,0,0,9,0,8 
1198 DATA 38,3,192,41,5,32,33,4,32,308,3,192,4,1,80,4,1,0,2,2,0,1,4,8,7,255,128 
1191 DATA 8,0,64,17,84,32,16,178,32,8,8,64,7,255,128,15,135,192,25,206,96 

1192 DATA 8,8,8,8,8,0,0,8,8,8,128,8,0,192,0,8,10@0,8,12,54,8,24,51,0,204,99,48 
1193 DATA 192,198,96,192,204,96,51,25,1890,24 ,203,24,230,0,8,44,284,204 

1194 DATA 56,192,48,205,51,8,24,49,176,54,102,192,67,102,8,6,51,8,08,16,128 
1195 DATA 8,9,9,8,9,8,08,8,8,8,0,90,8,0,0,0,0,8 

1196 DATA 8 ‚255,192,3,255,248,3,4,48,3,17,48,15,192 ,252,15,255,252,62,255,233 
1197 DATA 63 ‚„174,191,14,255,236,3,255,248,1,17,80,1,5,0,0,64,16,4,4,64,1,90,4 
1198 DATA 8, 8, 8,0,0,8,8,80,8,0,112,0,8,176,0,1,208,8,1,208,8,1,208,8 
11993-DATA 31,223,192,33,192,128,127,255,64,126,62,128,126,63,98,1,208,0,1,288,8 
1288 DATA 1, 2088, 8,1,288,8,1,224,0,0,90,8,0,0,08,0,0,8 

1281 REM *% SOUND DATA xx 

1282 DATA 4,98,598,6,133,750,5,207,250,5,123,250,4,226,2598,8,180,750,6,133,758 
1283 DATA 5,2087,258,5,123,259,4,226 ,250,8,180,750,6,133,750,5,2087,300,5,123,300 
1284 DATA 5,287,300,4,226,125® 


1205 REM *% SECTOR DATA #%* 
1286 DATA 19,5,3,20,15,18,32,32,32,3,12,5,1,18,5,4 ‚1 
READY. 


Commodore 64 
contra 


DMPI Printer 


Speakers 


Mit dem neuen Schneider 
CPC 464 präsentierte sich 
auf der Hifivideo '84 ein lei- 
stungsfähiges Kompaktsy- 
stem der Superlative. Ab 
Oktober 1984 wird der CPC 
464 im Handel erhältlich 
sein. ob er sich auf dem 
Markt durchsetzen kann, 
bleibt abzuwarten. 

Wir: vergleichen die techni- 
schen Daten des Schneider 


PERIPHERALS 


mit den Daten des absoluten Commodore 64 Schneider CPC 464 
Marktführers, dem Commo- Mikroprozessor Commodore MOS 6510 Z80 A Mikroprozessor mit 
dore 64. 4MHz Taktfrequenz 
Inunserernächsten Ausgabe 


erwartet Sie eine Befehls- Speicher 64K RAM, davon 38K in Basic 64K RAM, über 42K pro- 
übersicht beider Systeme. adressierbar. 52K in Ma- . »grammierbar 
(sr) S schinencode 
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Berichte 


Betriebssystem 20K ROM, Commodore 
Basic V.2.0 


Schreibmaschinentastatur mit 
65 Tasten, 4 Funktionstasten 
für 8 programmierbare Funk- 
tionen 


Tastatur 


320x200 Bildpunkte im HRG 
Farben 16 Grundfarben 


8 unabhängig bewegliche 
Sprites aus je 21x24 Punkten 


"Sprites 


Zeichenauf- 25 Zeilen ä40 Zeichen 


lösung 


Bildschirm Fernsehgerät oder Monitor 


Ton 3 Tongeneratoren mit je 8 
Oktaven und 4 versch. Wellen- 


formen; Ton über Fernseher 


RS232C, IEEE 488-Bus seriell 
Cassetten-Port für Datasette, 
Anschluß für Steckmodule, 2 
Anschlüsse für Joysticks 


Schnittstellen 


- Datasette (extern) 
- Floppy 1541 (extern 
(5 1/4-Zoll) 


Speichermedium 


cirka DM 698,- 


Softwareklau in Portugal 
- Portugiesische Firma verkauft 


Raubkopien - 


Die portugiesische Software- 
firma Microbaite vertreibt 
Raubkopien in großer Stück- 
zahl. Die Firma, mit Sitz in 
Oporto, bietet ca. 50 verschie- 
denen Programmkassetten 


Hobbit, 


lust. 


Raubkopien der Top-Charts 
wie etwa Chequered Flag, 
Manic. Miner be- 
scheren den Herstellern und 
Autoren hohen Umsatzver- 


32K ROM, Basic 1.0 


Schreibmaschinentastatur mit 
74 Tasten, 13 programmier- 
bare Funktionstasten, ab- 
gesetzter Ziffernblock 


640x200 Bildpunkte in HRG 
320x200 Bildpunkte in Nor- 
malmode 


27 Farben 


25 Zeilen ä 80 Zeichen in 
HRG umschaltbar auf 20/40 
Zeichen pro Zeile 


eingebauter S/W bzw. Farb- 
monitor 


Tongenerator mit 3 Kanälen, 
8 Oktaven, | Rauschgenerator: 
Ton über eingebauten Laut- 
sprecher - 


- Centronics-Schnittstelle 

- Anschluß für Joystick 

-3,5mm Buchse für Stereo- 
Ausgang 


- eingebauter Datenrecorder 
- Diskettenlaufwerk (3”, 
En 


eirka "DM 899- mit S/W 


Monitor 
DM 1.398,- mit Farbmonitor 


WANTED 


alive 
Monster, Ufos, Raumschiffe, Space-Invaders, 
Trons, Kongs ... sprich: gute Software. 


fürden ZX-Spectrum an. Da- 
bei handelt es sich aus- 
nahmslos um Raubkopien, 
sie wurden von den Autoren 
nicht authorisiert. Die Kas- 
settenhülle ist poppig aufge- 
macht, Programmbeschrei- 
bungen in portugiesischer 
Sprache gehalten. 

Zu den geschädigten Firmen 
gehören Softwarehäuser wie 
Quicksilva, Melbourne Hou- 
se oder Imagine. 


FERRBE, 
2 CPU 


Wie es scheint, können die 
englischen Hersteller nichts 
dagegen unternehmen. Kor- 
respondenz und Coopera- 
tion mit anderen Ländern ist 
bekanntlich sehr schwierig 
und zeitraubend. 

So werden auch in Zukunft 
billige Softwarekassetten in 
Portugal zu haben sein. Die 
Autoren trifft's zu meist am 
härtesten. 


Belohnung: bis zu 300,- DM an 
abgedruckte Seite, 


ROESKE VERLAG 
Fuldaer Straße 6 
3440 Eschwege 


abliefern hei: 
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Nach der Eingabe "RUN” erscheint 
links oben die Anzeige der Punkte und 
daneben die Höchstpunktezahl. 

Der Computer fragt Sie nun nach der 
Spielanleitung. 

Nach deren Erklärungwerden Sienach 
der Schwierigkeitsstufe gefragt: 

l. Anziehungskraft leicht 

2. Anziehungskraft mittel 

3. Anziehungskraft stark 

E Ende 


Jetzt erscheint ein Grafikbild einer Pla- 
netenoberfläche in der ein Labyrinth 
zu sehen ist. Im unteren Teil des Bildes 
wird die Energie, die Sie noch besitzen. 
durch einen schwarzen Strich darge- 
stellt. Darunter befindet sich die Anzei- 
ge, die Ihnen die Fallgeschwindigkeit 
des Raumschiffes in Meter/Sekunde 
angibt. Eine negative Zahl bedeutet, 
daß Ihre Raumfähre steigt. Eine dritte 
Anzeige befindet sich im Bild. die die 
Anzahl Ihrer Raumfähren anzeigt. 

Nachdem der Computer alles gezeich- 
net hat. erfolgt ein kurzer Piepston. 


THOMAS RAFF 
a 19.06.1954 
DIM M(28,16): DIM AS(17) 
GOTO 1230 


Jupiter Lander 


für den Apple II 


Drücken Sie eine Taste. 

Jetzt können Sie Ihre Raumfähre durch 
das Labyrinth mit den Tasten JIK 
steuern. 

J = Raumschiff nach links 

K = Raumschiff nach rechts 


‚I = Raumschiff nach oben; aber vor- 


sicht, je länger Sie die J-Taste drücken, 
desto mehr beschleunigt das Raum- 
schiff. 

Durch die geringe Anziehungskraft des 
Planeten fällt die Raumfähre auto- 
matisch. Wenn die J-Taste nicht ge- 
drückt wird, steigt die Fallgeschwindig- 
keit stetig an. 

Fliegen Sie am oberen Bildschirmrand 
hinaus, wird Ihr Raumschiff zerstört. 
Das Ziel des Spieles ist, daß Sie Ihr 
Raumschiff zu einer der beiden Fah- 
nen fliegen. 

Linke Fahne = 100 Punkte 

Rechte Fahne = 200 Punkte 


Das schwierigste am Spiel ist das Lan- 
den. Um.kein Raumschiff zu verlieren, 
müssen Sie mit weniger als lOm/sec. auf 


0HAS = : 0+ GOSUE 1020 


: 316 = 


‚IF = 
100 HGR % HCOLOR= 3. 
110 As(1) = 

120 A$(2) 
130 At(3) 
140 As(4) 
150 A$(5) 
160 Ab(6) 
170 A&(7) 
180 Ab(8) 
190 Atı9) 
200 Ab(C1O) 
210 A&b(11) 
220 At(12) = 2: 6332 

230 A$(13) 32 132 62 
240 ASCLA) 632 
250 A$(15) 37692 
260 At(16) 


132: 
63312 
63332 
633332 


KERN 


633332 
611333332 


633333333312 6332 
6333 


"331111333113331111111333113" 


6 
s11113" 
633" 


611 6333" 
6331 
43532 Br 


633" 


63332 6" 


633332 6333332 6" 


63332 63" 
63332 63" 
63%" 
632 63" 
62 Du 

ER 

632 6" 


270 DATA 4,0,10,0,19,0,45,0,90,0 


280 DATA 53,53,30,62,31,104,32,63,6 
43,62,119,9,12,55,191,45,45,53,63,63, 


270 DATA 
09,72,45,28,4;0 


einer Fahne landen. 


Variablenliste: z 

A = Eingabe durch Tasten (ASC II 
Code) 

ASD = Ton 

B = Fallgeschwindigkeit 

EN = Energie 

G = Energieverlust der vertikalen 
Rakete 

H = Energieverlust der horizontalen 
Rakete 

HP = Höchstpunktezahl 

P = Punkte 

PA = Anzahl der Raumschiffe 

X,Y = Einlesen von Daten durch 
READ 

X,Y = X und Y Koordinaten der 
Raumfähre 
xXX,YY = 
Raumschiffes 
WER = Schwierigkeit 

Z= Zähler 

M,Q,X,U,ZX = FOR...NEXT Schleife 


Löschen des letzten 


55,45,45,53,31,255,23,23,1 


200 DATA 54,54,54,54,46,36,36,36,36,21,54,34,54,46,36,36,36,37,53,62,54,5 
4,46,36,36,37,12,534,54,46, 36,36, 36,4,8,594,34,34,34,246,27,36,36,4,0 
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CPU 53 


TESTBERICHT 


Spectrum-Tastatur von d’K Tronics 


Schon so mancher Spectrum-Anwender 
hatsich beim Eintippen von Listings 

oderbei der Textverarbeitung wunde Finger scho 
Die Tastatur von d’K Tronics soll Abhilfe schaffen. 


Nach dem Auspacken prä- 
sentierte sich für uns ein Zu- 
satzgerät für den Spectrum in 
gutem Design. Schwarzes 
Kunststoffgehäuse und farb- 
lich abgestimmte Tasten 
machen einen soliden Ein- 
druck. 

Der Boden der Zusatzta- 
statur ist nun aufzuschrau- 
ben.und abzunehmen. Es 
kommen vorgesehene Steck- 
plätze zum- Vorschein, auf 

. die der Spectrum aufge- 

schraubt werden muß. Po- 
sitiv, daß auch das Netzteilin 
die Tastatur eingebaut wer- 
den kann. Jetzt kommt aber 
schon das erste, für viele 
wahrscheinlich auch größte 
Problem. Denn um den 
guten, alten Spectrum einzu- 


bauen, muß dieser ebenfalls 
aufgeschraubt werden. Doch 
damit erlischt auch gleich- 
zeitig der Garantieanspruch, 
falls er noch besteht. 
Lediglich die Platine des ZX 
Spectrum wird benötigt. 
Der größte Vorteil ist dabei 
die bessere Kühlung, die Ta- 
statur ist innen großzügig 
gestaltet. 

Die Kabelanschlüsse werden 
durch die an der Rückseite 
der Tastatur befindlichen 
Löcher verlegt. 


Da inzwischen die Microdri- 
ves und Interface I auf dem 
Markt sind, stellt sich. die 
Frage: Passen auch diese Zu- 
sätze in das Gehäuse. 

Die Antwort ist ja, um dies zu 
ermöglichen, wurden ein- 
fach die gleichen Bohrungen 
ein Stück höher gesetzt. 
(Abb. 2) 

So, wir. haben unseren 
Spectrum samt Microdrive, 
Interface 1 und Netzteil im 
Gehäuse untergebracht. 
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Jetzt schauen wir uns die ei- 
gentliche Tastatur mal etwas 
genauer an. (Abb. 1) 
Zunächst fällt der farblich 
abgesetzte Zehnerblock ins 
Auge. Der Zehnerblock be- 
steht hier aus 12 Tasten, die 
mit den Ziffern 0-9 und zu- 
sätzlich mit Delete belegt 
sind. Dies ist eine nützliche 
Einrichtung, ‘gerade beim 
Programmieren in Maschi- 
nencode oder beim Eintip- 
pen von Data-Zeilen wird 
man den Wert eines Ziffern- 
‚blocks zu schätzen wissen. 
Unterhalb der QWERTY- 
Tastatur befindet sich die 
große Space-Taste, wie bei ei- 
ner Schreibmaschine. Zu- 


sätzlich zu der ansonsten 
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normalen, beim Spectrum 
bekannten Tastaturbele- 
gung haben wir neben der 
Symbol-Shift-Taste noch 
mal Caps-Shift. 

So wird es wesentlich ein- 
facher, ohne großartige Fin- 
gerverrenkung in den E- 
Modus zu schalten. 

Beim Lesen der letzten Sätze 
könnte man nun meinen, 
daß die Tastatur bereits be- 
schriftet ist. Dem ist aber 
nicht so, den blanken Tasten 
liegt eine Schablone mit Kle- 
befolie bei. Jetzt vergeht erst 
einmal geraume Zeit, die Ta- 
sten zu bekleben. 

Es empfiehlt sich, die Ta- 
statur vorher gründlich von 
Staub und eventuellen Fett- 
fingern zu säubern, da die 
Beschriftung ansonsten ein- 
fach wieder abfällt. Hier 
wäre eine bessere Lösung an- 
gebracht, denn diese kleinen 
Folien sind nicht von allzu 
langer Lebensdauer. 


Eine Bezugsquelle für Er- 
satzschablonen konnten wir 
nicht in Erfahrung bringen. 
Doch jetzt wollen wir erst 
einmal die neuen Tasten 
”hämmern”. 

Mir erschien die Tastatur 
sehr leicht gängig, und das 
tolle: es ist ein richtiger 
Druckpunkt zu spüren. 
Auch bei längerer Text- und 
Zahleneingabe ist eine we- 
sentliche Verbesserung gegen- 
über der KRadiergummi- 
Tastatur zu verzeichnen. 

In Anbetracht der Tatsache, 
daß die Tastatur sehr groß- 
flächig ausgelegt wurde, muß 
ich nur die Konstellation der 
Tasten bemängeln. 
Zwischen diesen ist nur ein 
sehr kleiner Zwischenraum, 
der bei größeren Händen zu 


kleinen Komplikationen 
führen kann, aber nicht 
muß. \ 


Im übrigen hätte die Hand- 
auflage der d’K Tronics Ta- 
statur flacher ausfallen kön- 
nen, der Winkel ist doch 
recht steil. 


Fazit 


Die Zusatztastatur ist in je- 
dem Falle eine Verbesse- 
rung. Das Gerät wird kom- . 
pakt durch den Komplettein- 
bau von Spectrum und 
Zubehör. Für professionel- 
len, also Dauereinsatz ist 
aber auch diese Tastatur nur 
bedingt geeignet. 


größtes Manko 


Es können keine Erweite- 
rungen mehr in den Ex- 
pansionsport des Spectrum 
untergebracht werden, dafür 
reichen die rückwärtigen 
Bohrungen nicht aus. 

Das Testgerät wurde uns 
freundlicherweise von der 
Firma _Mikrocomputerla- 
den, Berlin zur Verfügung 
gestellt. 
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VcC-20 


Froschfänger 


2 für den VC-20 (Grundversion) 


Versuchen Sie möglichst viele Frösche mit Ihrem 
Netz einzufangen. 

Die Frösche verstecken sich im Gras und lassen % 
sich nur blicken, wenn der Jäger sich nicht 3 
bewegt. ; 

Für jeden gefangenen ”Kermit” bekommen Sie 

100 Punkte! 

Gelingt es jeoch einem Frosch an das rettende 

Ufer zu gelangen, so werden Ihnen Punkte 

abgezogen. 

Gesteuert wird mit einem Joystick, natürlich ist 

auch hier die Zeit gegen Sie! 

Also dann, ”Frosch frei” zur ersten Runde! 


198 REM <C)54 G.RAHN,LIMESSTR. 17,528 WEN. -BIERSTADT 
118 PRINT"T@ SSPIELANLEITUNGE" 

128 PRINT"WBEIN MANN VERSUCHT MIT EINEM NETZ FRÜESCHE ZUFANGEN. ":G05SUB218 

138 PRINT"DIE FROESCHE VERSUCHEN SICH IM GRAS ZUYER- STECKEN UND KOMMEN NUR":GO 
SUB218 

140 PRINT"THERAUS WENN DER JREGERSICH NICHT BEWEGT." :G0SUB210 

15% PRINT"FUER JEDEN GEFANGENEN FROSCH BEKOMMT MAN 109PLINKTE" :GOSUB218 

168 PRINT"GELINGT ES EINEM FROSCH DAS RETTENDE UFER ZUERREICHEN" 

178 PRINT"BEKOMMT MAN PUNKTABZUG" :GOSUB21B 

158 PRINT"TIM UEBRIGEN IST DRS SPIEL EIN SPIEL GEGEN DIE ZEIT. ":GOSUB218 

199 PRINT"VIEL SPASS!" ; 

208 G0TN229 

218 FORAB=1TNS999 :NEAT:RETURN e 
220 POKESZ, 23:POKESS.23:CLR:L=7552:PL=7168 
8 PEN EELOeL UBER SEBE BET NER Variablen 
zu ei 3 Kae nn ; Sc} Positionen der Froesche 
259 FORJ=ATO?:READX:POKEL+J,K:NEKTI SKl) Fositione De 
250 L=L+8:NEXTN:POKE35859, 255 PR Fosition des Maennchen 


279 DIMSC1B) Y Fewesunssrichtung der Froesche 
288 POKE3I6379,29 Punkte 


af 

br =1:J=9:ME=59: zB: Y=9:H= g 

ee Er ER Y Anzahl der Sefangenen Frossche 
318 18:5=INTERNDC 19494) :9=3+7702 

328 S(1)=$:POKES, 58: T=8+39729:POKET,5:NEXT 

330 P=8164:F=33834:R=1 

348 POKE37151.9 

358 FORU=1TO1A: IFSCUI=OTHENE3R 

369 S(U)=8<)+30728 

370 POKESLLUI.LESCUISSCLIHV 

338 IFSCWISSIGEORSEL)CSS4ZZTHENS(UI=38422+INTERNDE 134484) :GOSURSAR 

338 POKES(U),S:SCUI=SCU)-39729:POKESCH),58 : 

dog v=22: IFFISTHENV=2 5 , 

418. A=PEEK (371519 :POKE3?154, 127: B=PEEK(37152) :FOKE37154,255 

428 IFCARND4)=ARHDF>7745STHENP=P-22:V=-22:H=1 

438 IFCRANDSI=AANDPLSLEATHENFFF+22: y=22:H=1 

448 IFCBANDLZSI=SBANDR=<ZITHENP=P+1 :R=R+1 :V=1:ME=59:NE=SACH=1 

450 IFARANDLEI=SBANDRSIZTHENPSP-1:R=R-1:y=-1:ME=61 NE=62:H=1 

462. IFH=ATHENGOTOSSE 

478 PRIHT"SZ PIRTFIIP PT??? 
432 FRIHT"SE"J 


RIED AN 
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FRINTENe 2 E72 DET RERRTIE. 
FRENTN SET EN TE 


Rn 2 
u ie 
PRINT Re OT ER UT RT NT 
Ua N Te en Bo 
BR 0227 ?? Zn Re 
8 PRINT"? 2? I 
PRINT"??7777777777777772777.7 :FOKES185.63:POKE38905,65 
POKEF ME: D=P-22:POKED>NE :FÜKEF ,1:POKEE,1 
E=1+39720:POKEE. 2:F=P+38728:POÜKEF.2:H=8 
W=h+1: IFW=3STHENJ=J-19:66=66+1 :60SUB648 
IFGG=4THENSSB 
FORI=1TO18: IFD=SGTITHENGOSUB?LO 
NEXTI:FOKEL.8 


299 
77? 


Eee de 
ee art ler 


ER Re a ra Sa a 


en 
7 


En Sr 
RR 


IFY=18THENPOKEL , 15: FÜRK=149T0250: "POKEN, K:NEATKPOKEL, 8: GOTOSEA 


& HEATU:GOTOSSE 
J=J-5:FÜKEL, 15:POKENM. 245 
FÜRH=1 70209: NEXT :POKEL. @:W=9: RETURN 
PRINT" TERMEIRNIN "I "PUNKTE" :G0=8 
PRINT" TIEREN NOCH EIN SPIEL" 
FRINT"MDANN FF TASTE DRUECKEN" 
GETUF: IFWF="P"THEN29G 
GOTIESE 
SCI)=8:POKEL, 15:POKEN, 142: Ye : I=J+C100) 
RETURN 
DATAI2SSLZS. 188,192. 102. 102.126,126 
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Spielanleitung 
Frogtmanmierung uf 
Zufasllisge 


DATAB2: 126,126. 14,14, 14, 14.14 
DATA12S.128,6.30, 125. 112,1 

DATAIZ28. 128, 14.126.126. 14,126, 126 
DATR118. 118,126. 128.128, 14, 14.14 
DATALZE. 125. 112.125,125, 14.126, 126 
DATA 126.125, 112.128,126, 118.126, 126 
DATR12ZE, 125, 14.39, 30.30, 14,14 


& DATAI2S.125.192,1265,125,192,128, 1265 


DATAIZE 26,1265.14,12 
DATAB, 24.38. ‚126.66,.8 
DATAIZ,14,12,15,12.12.30.51 
DATAR.8.14,39.30,.14,2,2 
DATF12,23,12,69,12,12.39,51 
DATAB. 48,55, 68,59, 55.32,32 
DATAB, 24.29,9.0,144,85,34 


5,126 


Sonderzeichen 
jonen der 


ee 


en Foke-Befehle 98 


benerund 
aufbau 


it Hetz wird 


Spieles 


och wurde eingefangen! 


neu definiert 
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durch Folks-Befehl 
ir Bere 


sftrunkke 


Funktgeuirn 


CPU 


57 


mem, 


Bevor man das Spiel laden kann, muß fol- 
gende Zeile eingegeben werden: 

Poke 44,28: Poke 7168,0:NEW” 

und dann RETURN drücken. 


L 


a ER ET a RR Ba I BEI a Re Ba 


E85, 8:NEH EINGEBEN! 


LADEN FükEd44, 23: FOKET1 
R e 


FRIHTCHREGIG 
IHFUT"S 


HTERHD« 
H=1c 


E DRLECKEN 
NEXT:FRIH 


für den VC-20 + 16K 


FRINT" TRIKE": SN&CAR):FRINT"ANEITTE AH DEN START. 
»3:WAIT138,1:T1$="0o00aB" 


Nach dem Laden erscheint das Titel- 
bild. Dann wird man aufgefordert. zu 
warten. Genau nach 30 Sekunden wird 
das Titelbild nach unten gescrollt. 
Nun kann man sich enischeiden, ob 
man eine Spielanleitung braucht oder 
nicht. Wir tippen natürlich "ja” ein, 
denn wir kennen das Spiel ja noch 
nicht. Nach dem Lesen der Anleitung, 
wird nach der Anzahl der Spieler ge- 
fragt, die mitspielen wollen. Dann darf 
jeder Mitspieler seinen Namen einge- 
ben. Danach wird der erste Spieler zum 
Start gebeten, Das Rennen mit.der Zeit 
beginnt. 

Bei diesem Spiel muß man mit seinem 
Fahrzeug die Rennstrecke so schnell 
wie möglich durchfahren. 

Gelenkt wird mit den "Cursor- 
Tasten”. 

Mit der "Shift-Taste” wird Gas 
gegeben. 

Mit der "C=-Taste” gebremst. 

Durch Betätigen der "CTRL-Taste” 
wird das Gas gehalten. 

Wenn man in das Ziel gelangt ist. wird 
der gefahrene Spieler aufgerufen, und 
seine gefahrene Zeit wird angezeigt. 
Nachdem alle Fahrer gefahren sind, 
wird eine "Zeittabelle” gezeigt. wo alle 
bisher gefahrenen Fahrer aufgelistet 
werden: mit ihren entsprechen Zeiten, 
die gefahren wurden. 

Nun kann es von neuem beginnen. 
Viel Spaß! 
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2 TFAISERHR 2 
PRINT" MABENDETIGTE FUER DIE EIHE ZEIT YOHm" 
FRIHTMIDEE ’ 3 4 MRIGHTE “ABa, 22" mSEl" 
ER T SLueN E R 135,8: WAIT13S.1 


T+1>THENF3R 
ZELTHLI:T7ELC T+LY=GB$:SNSLTISSNECT+LYSENSETHLISGAS: 


HT" EblaTrı TR SEPREINT'IM NAME 


SaKLRTOTSAUNTEISTEIRTSTNEINTEIS RT SIRT ETASTE DEUECKEN" POKELPS,G:WAITLISSL 
HT" TIARISESIEIRHÖLLEH SIE EIN HEUES FEHHEN FAHREN GlFH>F" 


13% :NESTA 
3, A183: HEHTA 


TITELEILD* 
572,45: FRIHT"TINEINa" 


STRLILLER" 
NEITTE HARTEN" RETURN ' 


REHDA:FÜOKRET A: E=SE+H:NEHT 
THENPRINT"TIEIMSFEHLER IN DEN 


HINENPRG. DATEN 1" END 


a 
8, (eu 157 
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SS+A2:HNEXTA 


Y:READD: POKEB+L, DU: F=F+lNERTO 
134STHENFRINT"TFEHLER IN DEH IATEN  FUER NEUEN ZEICHENS 


RETURN 
REM #DATEN FLIER: HEI, 
el 


2059: NEATE, A: POKE36E75, 8: POKE3SRT 


73: 153: PRINT"TI'CHRERI4I SCHRECHI 

PRINT" AISIRSYPTELANLEITUNG ERWUENSCEHT & iD" 
POKEI B:UAIT128, 1: GETAS: IFA&="N"THENRETURH 

a "I" THEN12344 
FRIHT"TTA er ELERN 
FEINT" EN 
FEINT"SENIEI DI “EIEL MUES-SEN #IE MIT -HREM -AHRZEUS EINE" 
FRINT"#TRECKE 50 SCHNELL WIE MÖESLICH DURCH- — FAHREN." 
FEINT" Mel ITTE I HSTE DRUECKEN" : POKE138, 8 :HAIT13S,1 
RRINT FIRE ee v 
FEINT" ZEN ELENKT WIED MIT DEN — — LASTEN." 
FEINT"M-IT DER 15 HIRD IAS GEGEBEN.” 
FRINT"RNIT DER ASTE WIEDL GEBREMST, " 
FRINT"eU TRLECKEN DER IL = IASTE WIRD DAS" ! 
FREINT"IAS GEHALTEN." 
FEINT"SMIITTE IASTE DRUECKEN" FOR E138,8:WAIT138,1 
RETURN 
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c-20 


RELLYE| 
S 


SstiSl 
+.5,1 


\Ineeremmmmre lit 


RETURN 
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Planetenverteidigung 


für den TI-99/4A 


Das Spiel besteht aus zwei Bildern. Im 
ersten Bild muß man die feindlichen 
Gegner ins Visier bringen und ab- 
schießen. Im zweiten Bild muß das ei- 
gene blaue Raumschiff sicher auf der 
Plattform gelandet werden. Es stehen 
3000 Energieeinheiten zur Verfügung. 
Jeder Schuß kostet 100  Ener- 
gieeinheiten. Wenn die Bildschirm- 
farbe wechselt, so mußten Sie einen ge- 
gnerischen Treffer einstecken, wofür 
Ihnen ebenfalls 100 Energiepunkte ab- 
gezogen werden. In der ersten von ins- 
. gesamt vier Runden, müssen 8 Gegner 
beseitigt werden. 
Haben Sie das erste Bild erfolgreich ge- 
schafft, so müssen Sie nun auf der Pla- 
netenoberfläche landen. Hier fliegen 
Sie nun durch die Anziehungskraft 
automatisch nach unten. Um - nun 


durch den Gang hindurch zur Lande- ' 


plattform zu gelangen, muß ein Gegen- 
schub erzeugt werden. Dafür werden je- 
desmal 25 Energiepunkte abgezogen. 
Nach erfolgreicher Landung beginnt 
das erste Bild von neuem zu starten, je- 
doch mit 10 Gegner und 250 Energie- 
punkten mehr. Die Anzahl der Gegner 
steigert sich bis zu 14 bei 3750 
Energieeinheiten. 


Steuerung: 

Im ersten Bild wird mit Joystick l in.alle 
Richtungen, auch diagonal, gesteuert. 
Der Feuerknopf dient dem Abschießen 
der Gegner. 

Im zweiten Bild kann nur nach links 
und rechts gesteuert werden. In Verbin- 
dung mit dem "nach unten schweben” 
ergibt sich so immer eine Diagonal- 
steuerung. Der Feuerknopf dient hier 
der Aktivierung des Gegenschubs. 
‚Wem das Spiel zu leicht oder zu schwer 
ist, kann die Werte in folgenden 
Zeilen ändern. 

290 u = 6 (steht für Anfangszahl der 
Gegner) 

300 EM=DM-+250 (steht für den Ener- 
giezuwachs je Runde) i 
310U=U+2 (steht fürden Zuwachs der 
Gegner je Runde) 

320 EN=2750-+EM (Steht für die An- 
fangsenergie in der ersten Runde) 
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100 CALL CLEAR 
110 CALL SCREEN(14) 
120 FOR Z=1 TO 16 
150 CALL COLOR(Z,16,1) 
140 NEXT Z 
150 PRINT " RR 
KR" * 
w" * Planetenver 
'* teidigung 


180 PRINT " * 
Eure Ka a er 
"Juni 1 
984 by Klaus Hofmann" 
170 FOR Z=1 TO 750 
180 NEXT Z 
190 CALL CLEAR 
200 PRINT "Willkommen bei Pl 
anetenver- teidigundY "::"Ges 
pielt wird mit Joystick 
1":2"Ziel ist es, die gruene 
Ra 
210 PRINT "Gegner in Ihr vis 
ier zu bringen! Wenn Sie 
die erste Angriffswelle 
ueberstanden haben, muesse 
n"; ” 
220 PRINT " Sie ver-":"suche 
n auf der Landeplatt- 
aufzusetzen.":: 
s!!!"3:"Sie koennen das Spie 


’ PRINT "nicht unterbreche 
n!":2"Fertig dann ""F I RE" 
230 CALL KEY(1.K,S) 

250 IF (S=0)+(KK>IB)THEN 240 
260 FOR Z=1 TO 16 

270 CALL COLOR(Z,1,1) 

280 NEXT Z 

290 U=6 

300 EMSEN+250 


310 U=U+2 
320 EN=2750+EM 
330 CALL CLEAR 
540 CALL SCREEN (2) 
350 DATA FFFFFFFFIFIFFFSF SF 
SFSFSFIFIFIFOF, OF07070303030 
101, FFFFIFSFEFLFOFO7,070 
S010100, FFFFFFFFFFFFSFIF 
360 DATA OF07030100, FFFFFFFF 
FFIFSFAF OFOSOLOO 
370 DATA FFFFFFIFSFIFLFOF, 07 
0300, FFFFFFFF3FLFO703, 7FAFO7 
100, FFFFFFFFIFLFO7OS, FF 
SF070100 
380 DATA FFFFFFFFIFSFOFOS,FF 
SFOFOSOO, FFFFFFFFFFO700, FFFF 
FFFFFFFFIFOT 
390 RESTORE 350 
400 FOR 7=104 TO 122 
410 READ A$ 
420 CALL CHAR (Z,A$) 
430 NEXT Z 
440 CALL CHAR (41, "4000000000 
000001") 
450 CALL CHAR 42, "0000000010 
") 
460 CALL CHAR (43, "040") 
470 DATA FFFFDFDFEFFFFIFF,FF 
FFFDFBFEBDFFFF ,FFFFCSBFFFFFF 
FFF\FFCFBIFRFEFDFDFF,EFE 
FEFDFFFFFFFFF ,FDFBFFFFFFC7BF 
7 3 

Ö DATA FFFFFFFFFFFFFFFF 

0 RESTORE 470 

FOR Z=152 TO 158 

510 READ A$ 
520 CALL CHAR(Z,A$) 
530 NEXT Z 
540 63050 I60C080, CO 
60301 30C «VOO0001BICS5C 
381 ,A22845E81AA80042, 181 
8181924506605, 00182442FFFF24 
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42 
S50 DATA 428199ASE7999142,C3 
66182424 186603, OOSCTEASTEICO 
o 
560 RESTORE 540 
570 FOR Z=132 TO 140 
SB0 READ A$ 
5970 CALL. CHARIZ,AS) 
&00 NEXT.Z 
"516 CALL CHAR«4144, "OOOOGOFFF 
Foo") F 
620 CALL CHAR(145, "181818181 
8181818") 
630. CALL CHAR (96, "FFFFFFFFFF 
FEFFFF") 
840 CALL HCHAR(1,1,96, 768) 
650 FOR Z=4 TO 21 
550 CALL HCHAR\Z,S,3 
670 NEAT Z 
680 FOR Z=1 TO 20 
690 RANDOMIZE 
700 O=INT ( (28-5+1) #RND) +5 
710 P=INT((21-4+1)*RND) +4 
720 Q=INT ((43-41+1) xRND) +41 
CALL HCHAR(P,0,0) 
740 NEXT Z 
750 CALL HCHAR(12,11,144,4) 
760 CALL HCHAR(12,18,144,4) 
779 CALL VCHAR (8, 16,145, 
780. CALL VEHAR(14,16,145 
790 Z1=10% 
800 DATA 4,16,5,16,6,16,7,17 
,8,17,8,18,9,18,9,19,10,19,1 
0,20,11,20,11,21,12,22,1 
2 ‚13,24,13,25 
810 DATA 14,26,14,27,14,28 
20 RESTORE 800 
850 FOR Z=1 TO 19 
840 Zi=Zitl 
850 READ A,R 
860 CALL HCHAR (A,B, ZU) 
870 NEAT Z 
830 FOR Z=4 TO & 
870 CALL HCHARiZ,17,158,12) 
Fo0 NEXT Z 
910 DATA 7,18,11,8,19,10,9,2 
0,9,10,21,8,11, ‚12,24,5, 
13,26,3 
RESTORE 910 
FOR Z=1 TO 7 
940 READ AuB,C 
50 CALL HCHAR (A,B,158,C) 
960 NEXT Z 
970 R=16 
980. DATA 4,25,153,5,19, 156,5 
„21,152,6,26,157,8,19,153,8, 
22,.154.8,24,157 
990 DATA 11,22,155,11,26,152 
‚12,28,156, 13,26, 155 
1000 RESTORE 980 > 
FOR Z=1 TO 11 
READ A,B,C 
CALL HEHAR (A,E,C) 
NEXT Z 
O A$="ENERGIE" 
1080 CALL COLOR(9,5,1) 
1070 FOR 2=5 TO 8 
Ö EALL COLOR(7,16,5) 
NEXT Z s 
Ö CALL COLOR(13,7,1) 
O CALL COLOR(15,14,1) 
ö CALL COLOR(16,12,10) 
EALL EOLOR(10,12,1) 
Ö CALL.COLOR(11,12,1) 
ü CALL COLOR(12,12,1) 
Ö EALL EOLOR(2,R,1) 
© CALL COLOR (3,16,5) 
Ö CALL COLOR(4,16,5 
GOSUR 5250 = 
Ö GOSUB 5190 
ö GOSUR 2390 
CALL HEHARIV,H,F) 
D=&0 
FOR Z=1 TO 4 
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1250 CALL SOUND(-450,-5,18) 
1260 CALL JOYST(1,X,Y) 
1270 CALL KEYi1,K,S) 
1280 8 THEN 1890 
1290 4 THEN 1500 
1300 THEN 1370 

x THEN 1760 
1320 IF Y=-4 THEN 1530 
1330 NEXT Z 
1340 D=D+1 
1350 IF D=E THEN 2250 
1360 GDTO 1240 
1370 IF Y=4. THEN 4520 
1380 IF Y=-4 THEN 4760 
1390 H=H+1 
1400 CALL SOUND(-450,-5,16) 
1410 IF (H£4)+HI2N +VEI) + 
V>22) THEN 1470 
1420 CALL HCHAR(V,H-1,6) 
1430 CALL GCHAR (V,H,G) 
1440 GDSUB 2470 
1450 IF G=96 THEN 1470 
1460 CALL HCHAR (V,H,F) 
1470 D=D+1 
1480 IF D=E THEN 2250 
1490 GDTO 1240 
1500 IF Y=4 THEN 4640 
1510 IF Y=-4 THEN 4880 
1520 H=H-1 
1530 CALL SOUND (-450,-5,16) 
1540 IF (HA) H(HP2N + VEII + 
V>22)THEN 1600 
1550 CALL HCHAR(V,H+1,6) 
1560 CALL GCHAR(V,H,G) 
1570 GOSUB 2470 
1580 IF 6=96 THEN 1600 
1590 CALL HCHAR(V,H,F) 
1600 D=D+1 
1610 IF D=E THEN 2250 
1620 GOTO 1240 
1630 IF X=4 THEN 4760 
1640 IF X=-4 THEN 4880 
1650 v=VvHl 
1660 CALL SOUND (-450,-5,16) 
1670 IF (VEZ) +tV>Z2) HHEA) HC 
H>29) THEN 1730 
1680 CALL HCHAR(V-1,H,.6) 
1690 CALL GCHAR(V,H,G) 
1700 GOSUB 2470 
1710 IF 6=96 THEN 1730 
1720 CALL HEHAR (V,H,F) 
1730 D=D+i 
1740 IF D=E THEN 2250 
1750 GOTO 1240 
1760 IF X=4 THEN 4520 
1770 IF X=-4 THEN 4640 
1780 v=V-1 
1790 CALL SOUND (-450,=5,16) 
1800 IF (VES) +VI2DI + HLA) HL 
H>29) THEN 1850 
1810 CALL HCHAR(V+1,H,.6) 
1820 CALL GCHAR (V,H,6) 
1830 GDSUB 2470 r 
1840 IF 6=96 THEN 1850 
1850 CALL HCHAR (V,H,P) 
1860 D=D+1 
1870 IF D=E THEN 2250 
1880 GOTO 1240 
1890 CALL GCHAR(12,16,1) 
1900 
1910 6 
1920 FOR z=21 TO 13 STEP -1 
1930 Hi=Hi+1 
1940 H2=H2-1 
1950 CALL HCHAR(Z,H1,132) 
1960 CALL HCHAR (Z,H2,155) 
1970 NEXT Z 
1980 CALL HCHAR(12,18.134) 
1990 CALL SOUND(100,-7,0) 
2000 Hi=6 
2010 H2=25 
2020 FOR Z=21 TO 15 STEP -1 
2030 Hi=Hi+1 
2040 H2=H2-1 


2050 EALL HEHAR(Z,H1,32) 
2060 CALL HCHAR(Z,H2,32) 
2070 NEXT Z 
2080 IF I<>32 THEN 2150 
2090 CALL HCHAR(12,16,32) 
2100 IF (HA +LHIZI) HLVER) + 
V>22) THEN 2120 
2110 CALL HCHAR{V,H,F) 
2120 EN=EN-100 
2130 GOSUR 5190 
2140 GOTD, 1240 
2150 CALL HCHAR{12,16,135) 
2160 FOR L=0 TO 30 
2179 CALL SOUND(-100,-6,L) 
2180 NEXT L 
2190 CALL ‚HCHAR(12,16,32) 
2200 EN=EN-100° 
2210 T=T+1 
2220 GOSUB 5190 
2230 IF T=U THEN 2530 
2240 G0TD 1210 
2250 .D=0 
2260 EN=EN-100 
2270 FOR Z=3 TO 14 

CALL SCREEN (Z) 

CALL SOUND (-20,-3,0) 

O NEXT Z 
CALL SCREEN(11) 

CALL SOUND (-20,-3, 0) 
CALL SCREEN (2) 

0 CALL SOUND(-20,-3,0) 
RANDOMIZE 
E=INT((1B-11+1) #RND)+11 
GOSUB 5190 
GOTO 1240 
RANDOMIZE 
H=INT ( (28-5+1) «RND) +5 
V=INT (21-441) #RND) +4 
F=INT((140-136+1) *RND) + 


CALL GCHAR (V,H,G) 

GOSUB 2470 

© ESINTÜL1B-1141) &RND) +11 

RETURN 

IF 6<152 THEN 2500 

N=12 

60TO 2510 

N=l 

CALL COLOR (14,3,N) 

RETURN 

CALL CLEAR 

FOR Z=1 TO 16 

CALL COLORIZ,1,1) 

NEXT Z 

DATA 002024347E7FFFFF,O 
000000CD2C1ESFF, 8991524C283A 
FAFF , 00100E0207 1FFFFF , 10 
08089090E0FäFF , 905051393B7BF 
FFF 
2580 DATA 00000080442E2FIF,1 
FSFSFIFIFIFFFFF , A0EOEOFOFOFO 
FOFA, FAFIFLFYFEFEFFFF, FF 
FFFFIFIFLFOFOS„EFFFFFFBEIAA2 
242 
2590 DATA FFFFSE1199146, FFFF 
OL1OAACB161 , BOCOLOEOFBFEFFFF 
‚ 000000000000L0F0, FOFOFO 
FOFOFOFOFO, FFFFFEFEFCFCFOF 
2600 DATA FFFFFCFOEOFOCOS, FO 
80, EOCOCOEVEOFSFFFF 
2610 RESTORE 2570 
2620 FOR Z=97 TO 117 
2630 READ A$ 
2640 CALL CHAR(Z,As 
2650 NEXT Z . 
2660 CALL CHAR{120, "FFCOR1I& 
ECFCPZAL") 
2670 CALL CHAR{121,"AOCOCOBi 
AT3FAFOO") 
2680 CALL CHAR (122, "F0688406 
OS0EOEIE") 
2690 CALL CHAR (123, "BEICFCFE 
FEF19C22") 
2700 CALL CHAR(128, "FF603018 
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VCOSOZOL") 
2710 CALL CHAR(129, "FFOSOSOC 
1830E0OFF") 
2720 CALL CHAR (130, "FFCO5030 
180C07FF") 
2730 CALL CHAR(131,"FFOSOCIS 
3060C080") 
2740 CALL CHARX40." 
F2262E2") 
2750 CALL CHAR (AI S"FFFF7FOSO 
C1830F8") 
2760 CALL CHAR (42, "O000EOFOF 
8444647") 
2770 CALL CHAR (43, "FFFFFEAOS 
OLBOCIF") 
Ö CALL HCHAR$11,1,968,21) 
CALL. VCEHAR(12,1,96,12) 
Ö CALL HCHAR(24,1,96,22) 
Ö CALL HEHAR(23,13,96,9 
0 FOR Z=30 TO 32 
© CALL VCHAR(12,2,98, 1%) 
Ö NEXT Z 
CALL HCHAR(17,7,98,12) 
O CALL HCHAR (18, 24,96,6) 
FOR Z=107 TO 110 
CALL HCHAR (12, 2-85,2) 
CALL HCHAR(18,2-100,2) 
NEXT Z 
FOR 2=97 TO 102 
Ö CALL HEHAR (15, 2-84, 2) 
NEXT Z 
CALL VCHAR (14,2,115,9 
ö DATA 97,100,101,99,97,9 


»70F1 


© RESTORE 2950 
FOR Z=1 TO 6 
READ Z1 
CALL HEHAR(16, 246,21) 
NEXT Z 
DATA 117, 102,99, 98,100, 
101,97,102,98,97,104 
3020 RESTORE 3010 
3030 FOR Z=1. TO 11 
3040 READ Z1 
3050 CALL HCHAR (23, Z+1,21) 
3060 NEXT Z 
3070 DATA 103,105, 100, 101,98 
»97,99,99,97,98 
3080 RESTORE 3070 
FOR Z=1 TO 10 
READ 21 
O0 CALL HEHAR(22,2+11,Z1) 
Ö NEXT Z 
FOR 2=99 m ı01 
Ö CALL HEHAR(11.Z-69, 2) 
NEXT Z 
3160 DATA 106,160, 101, 102,98 
‚99, 97,98, 102,97, 104 
3170 RESTORE 3160 
Z180 FOR Z=1 TO 11 
3190 READ Z1 
0 CALL HEHAR(17,2+18, 213 
3210 NEXT Z 
3220 DATA 12,2,76,12,3,115, 1 
2,4,116,13,2,114,16, 19,105, 1 
6,29,103, 11,22, 111 
3230 DATA 11,23,112,23,22,11 
1,23,23,112,24,23,113,18,25, 
107,19, 29,107 
3240 DATA 24,24, 128,24,25,12 
9,24, 26,130, 24,27,131,10,24, 
120,11,24,121,10,25,122, 
11,25,123 


DATA 23,29,103,24,29,10 


RESTORE 3220 
FOR Z=1 TO 23 

Ö READ A,B,C 
CALL HCHAR (A,B,C) 
NEXT Z 

öÖ FOR Z=9 TO 11 
CALL COLOR!Z,11,1) 
NEXT Z 

O0 CALL COLOR(12,9,1) 
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CALL COLOR(13,14,1) 
FOR 2=3 TO 8 

CALL. COLOR (Z,1,16) 
NEXT Z 

RANDOMIZE 
H=INT(S1-3+1) RND)+3 
v=2 

A$="ENERGIE” 

GOSUB 5250 

G0SUB 5190 

CALL HCHAR (V-1,H-1,40) 
CALL HCHAR (V,H-1,41) 
CALL HCHAR (V-1,H,42) 
CALL HCHAR (V,H,43) 
CALL EOLOR(2,6,1)., 
EALL JOYST(1,X,Y) 

CALL KEY(1,K,5) 

IF K=18 THEN 5000 

IF X=4 THEN 3670 

IF X=-4 THEN 3800 
Vav+t 

GOSUB 5130 

CALL GCHAR (V,H-1,A) 
CALL GCHAR(V,H,B) 

IF (A>9S5)+(B>95)THEN 39 


CALL HCHAR (V-2,H-1,32,2 


CALL HCHAR (V-1,H-1,40) 
CALL HCHAR(V,H-1,41) 
CALL HCHAR (V-1,H,42) 
EALL HCHAR (V,H,43) 
GOSUB 5130 

60T0 3500 

=H+1 

IF H>31 THEN 3930 
Vay+l 

GOSUR 51350 

CALL GCHAR (V,H,A) 

CALL GCHAR (V,H-1,B) 
CALL GCHAR(V-1,H,C) 

IF (A295) +(B>95) +(0995) 
3780 3 

CALL VCHAR(V-2,H-2,32,2 


CALL HCHAR (V-2,H-1,32) 
GOTO 3610 

H=H-1 

G60T0 3970 

H=H-1 

IF H<3 THEN 3950 

Vav+l 

GOSUB 5130 

CALL GCHAR (V,H-1,A) 
EALL GCHAR (V,H,B) 

CALL GCHAR(V-1,H-1,C) 
IF (A>95) +(B>95) +(C>95) 
‚3910, ; 
CALL’ VCHAR (V-2,H+1,32,2 


MEET 


Rathausstraße 4, 2300 Kiel 1 
Telefon (0431) 963 76 


CALL HCHAR (V-2,H,32) 
GOTO 3510 

=H+1, 

G0T0 3970 

H=H-1 

G0T0 3550 

H=H+1 

60T0 3550 

IF (A>127)+(B>127)THEN 


vev-i 
CALL HCHAR(V-1,H-1,135, 


CALL HCHAR (V,H-1,135,2) 
FOR Z=0 TO 30 

CALL SOUND(-2000,-7,Z) 
NEXT Z 

EALL HEHAR{V,H-1,32,2) 
CALL HEHAR (V-1,H-1,32,2 


GOSUR 5130 
FOR Z1=1 T0 5 
FOR Z=800 TO 400 STEP - 


CALL SOUND(-2000, 2,8) 
Ö NEXT Z 
0 FOR Z=1400 TO. 1000 STEP 


CALL SOUND(-2000, 2,4) 
NEXT Z 

NEXT ZI 

CALL ‘SOUND (-100,40000,3 


FOR Z=1 TO 1000 

NEXT Z 

CALL CLEAR 

FOR Z=1 TO 16 

‚CALL COLOR(Z,16,1) 

NEXT Z 

PRINT "WOLLEN SIE ES NO 
CHEINMAL"::"SPIELEN? DANN DR 
UECKEN SIE": 3"""BACK" 


CALL KEY{5,K,5) 
IF 8=0 THEN 4230 
IF K=15 THEN 4270 
END 

FOR Z=1 TD 16 
CALL COLORtZ,2,1) 
NEXT. Z 

T=0 

EM=O 

60TO 290 

GOSUB 5130 

CALL HCHAR (24, 1,96,21) 
A$="GUT "GELANDET" 
GOSUB 5250 

FOR Zi=1 TO 10 


ATARI 
BASIS 
Commodore 
DAI 

EACA 
OSBORNE 
SHARP 
TANDY 


BUCHHANDLUNG 


GONSKI 


Fachbücher + 


Fachzeitschriften 
für Mikrocomputer 


4380. FOR Z=800 TO 1200 STEP 
so 
4390 CALL SOUND (-2000, 2,6, 2+ 
25,10) 

NEXT Z 

NEXT z1 

CALL SOUND (-200,40000,3 


FOR Z=1 TO 1000 
NEXT Z Ru 
IF T>13 THEN 5290 
CALL CLEAR 
FOR Z=1 TO 16 
CALL COLOR(Z,2,1) 
NEXT Z 
T=0 
GOTO 300 
H=H+1 
vev-i 
CALL SOUND (-450,-5,16) 
IF (HA) +HI2MHLVES) He 
V>22) THEN 4610 
4560 CALL HCHAR (V+1,H-1,6) 
4570. CALL GCHARXV,H,6) 
4580 GOSUB 2470 
4590 IF G=95 THEN 4610 
4600 CALL HCHAR(V,H,F) 
4510 D=D+2 
4620 IF D>=E THEN 2250 
4630 GOTO 1260 
4640 H=H-1 
4550 V=V-1 
4660 CALL SOUND i-450,-5, 16) 
4670 IF (H£A)+CH>2I) HVEZ) + 
V>22) THEN 4730 
4680 CALL HCHAR (V+1,H+1,6) 
4690 CALL GCHAR(V,H,6) 
4700 GOSUB 2470 
4710 IF 6=96 THEN 4730 
4720 CALL HCHAR(V,H,F) 
4730 D=D+2 
4740 IF D>=E THEN 2250 
4750 GDTO 1260 


- 4760 H=H+1 


4770 V=V+l 

4790 CALL SOUND {-450,-5, 16) 
4790 IF (HA +CHIZ2I + LVET) + 
V>22) THEN 4850 

4800 CALL HCHAR (V-1,H-1,6) 
4810 CALL GCHAR (V,H,6) 

4520 GOSUR 2470 

4830 .1F G=96 THEN 4850 
4840 CALL HEHAR(VH,FI ° 
4850 D=D+2 x 
4860 IF D>=E THEN 2250 
4870 G0TO 1250 

4880 H=H-1 

48909 V=V+1 

4900 CALL SOUND 


A910 IF CHSM+HLHIZNALVEH HL 
>22) THEN 4970 
EALL HCHAR (V-1,H+1,6) 
CALL GEHAR(V,H,G) 
Ö GOSUB 2470 
IF 6=96 THEN 4970 
Ö CALL HEHAR(V,H,F) 
D=D+2 
IF D>=E THEN 2250 
v 50T0 1260 
S000 IF V£&T THEN 3500 
5010 IF EN=25 THEN 3550 
5020 ENSEN-25 
5030 GOSUB 5190 
5040 GOSUB 51350 
5050 CALL HEHAR(V-1,H-1,32,2 
> 
50560 CALL HCHAR (V,H-1,32,2) 
5070 CALL "SOUND (-800, 110,25, 
880, 22,-6,20) 
SOBU Vav-i 
5090 CALL GCHARIV-1,H,XA) 
5100 CALL GCHAR(V-1,H-1,XB) 
S110 IF (XA>9S) +XB595) THEN 
5340 
5120 60T0 3610 
5150 IF R=1 THEN 5160 
5140 R=1 
5150 6070 5170 
S160 R=5 
5170 CALL COLOR(2,R,1) 
5180 RETURN 
5190 CALL HCHAR(24,16,96,6) 
5200 FOR Z=1 TO LEN(STR$(EN) 
) 
5210 CALL HCHAR (24, 15+2,ASCt 
SEG$ (STR$(EN),Z,1))) 
5220 NEXT Z 
5230 IF EN<=0 THEN 4070 
5240 RETURN 
5250 FOR Z=1 TO LEN(A$) 
5260 CALL HCHAR (24, 7+2, ASC(5 
EB$ (A$,Z,1))) 
NEXT Z 
Ö RETURN 
9 A$r="GRATULIERE "GEWONNEN 


5300 GOSUB 5250 

5310 FOR Z=1 TO 2000 

5320 NEXT Z 

5330 60TO 4180 

5340 Vavtl 

5350 CALL HCHAR (V-1.H-1,135, 
2) 

5360 CALL HCHAR(V.H-1,135,2) 
5370 6DTO 4010 


6630 Saarlouis, 
Lothringerstraße 9 
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KLEKTRONIK 


Micro-Computer, Peripherie und Software GmbH 


APPLE SHARP EPSON CENTRONICS FELTRON 
IBS Interlace SINCLAIR SOFTWARFERSTELLUNG 
Gibitzenhofstr 69, 8500 Nurnberg 1. Tel. (0911) 677093 


Gertrudenstraße 2-4 Ecke Neumarkt) 


Der Computer-Laden 
5000 Köln ! Telefon (0221) 210528 


AM MARSTALL 3000 HANNOVER I 


0511/14629 


IHR GROSSER PARTNER 
FÜR KLEINE COMPUTER 


DATA BECKER 


Merowingerstr 30 4000 Dusseldorf Tel 0211 310010 
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Apple-Expo 84 


’Versuchen Sie nicht, eine Maschine zu werden’ ist das Motto, das hinter einer 
Philosophie steht, die sich ’Die APPLE IDEE’ nennt. Um diese Philosophie dreht 
sich die ganze Konzeption und Marktstrategie des bekanntesten SMgBIeR 
Herstellers der Welt. 


Die Entstehungsgeschichte 
von AppleComputer dürfte 
jedem Freak bekannt sein 
und steht als Paradebeispier 
für die rasende Entwicklung 
der Computerszene in den 
letzten 10 Jahren. Mit der 
Entwicklung der Apple 
Computer entstand diese 
Idee, die auch heute noch bei 
der Innovation der ganzen 
Produktpalette des mittler- 
weile riesigen Unterneh- 
mens Pate steht. Dieser 


Grundgedanke der damals 


im Kopf des Apple Erfinder's 
Wozniack entstand war ein- 
fach nur der, daß die Firma 
Computer bauen wollte, bei 
denen die Anwendbarkeit 
auf den Menschen bezogen 
istund somit ein Höchstmaß 
an Anwenderfreundlichkeit 
gegeben sein sollte. 

Aus der damaligen Pro- 
duktion entstand der Apple 
II. Durch diesen Computer, 


der von Anfang an für Insiderg 


geschaffen wurde, erlan, 
die Firma Weltruhm, 
dieser Grundidee 


jedoch Is PC von 
wendern gemieden 

Der relativ kleine Speicher 
bereich von max. 128Kb 
schreckte viele Käufer ab. ; 
entstanden dann noch einige 
Nachfolgemodelle des Mo- 
dells II (ITe, II Europlus und 
Modell III), jedoch der Ein- 
zug in die Großbüros und 
Chefetagen gelang erst mit 
der Entwicklung der Apple 
Lisa. 

Mit 512Kb und der kom- 
fortablen Bedienerführung 
durch die MOUSE-Steue- 
rung, wurde Apple der Ein- 
stieg in die Welt der großen 
Personalcomputer ermög- 
licht. Später kam dann noch 
der MACINTOSH dazu, 
der von seinem Ge- 
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samtkonzept wescailich an- 


sprechender war als die, 


alten Modelle. 


Leider mußte Apple ‚jedoch i 
in den letzten Jahren einen 


Gewinnrückgang verzeich- 
nen und viele hörten schon 
die Totenglocken für dieses 
Riesenunternehmen läuten, 
Der. ‚Gewinnrückgang kam 


jedoch nur dadurch. zu- 
::stande, daß Apple einen 


Riesenetat für Werbeaktio- 
nen und Forschung bereitge- 
‚stellt hatte, A, 

Grunde ‚wurde in 


Vorstellung diese Hein Ge 


rätes.veranstaltet Apple eine 
Messe der Superlative. Paral- 
lel zur ORGATECHNIK ’4 
läuft in den Kölner Mes- 
sehallen auf 5000 Quadrat- 
metern eine Ausstellung, die 
dem Publikum die Apple 
Philosophie nahe bringen 
soll. 

In der extrem kurzen Zeit von 
8 Wochen wurden die kom- 
plette Planung dieses Ereig- 
nisses abgeschlossen und 


‚:sucher 


über 90 Aussteller 
Messe geworben. 
Ein großes Team von Desi- 


für die 


gnern wurde bemüht, eigene 


Messestände im . Apple 
Design zu entwerfen, um die 
ganze Atmosphäre der 
Messe der Grundidee anzu- 
passen. Der ganze Rahmen 
der Ausstellung soll alles 


Konventionelle weit hinter... 


sich lassen ‚und:dem Be- 


Messe-Feeling vermitteln. So 
wurden nicht nur Soft- und 
Hardware-Händler zugelas- 
sen sondern. h 


und Alltagsarti el im Apple 
Design vorgestellt werden. 
Diese Produkte gehen weit 
über die bekannten T-Shirts 
mit Werbeaufkleber hinaus. 
In jedem Produkt der Firma 
steckt Planung und Detail 
genau der Apple-Idee ent- 
sprechend. Angekündigt wur- 
de z.B. ein von Apple ent- 
wickelter Ganz-Körper-Walk- 
man in Form einer Weste mit 


‚ein völlig neues 


eingebauten Lautsprechern, 
dieein ganz neues Hörgefühl 
geben sollen. 

Eine eigene Zeitung wurde 
extra zur Messe gedruckt, 
eine neues Leasing-Verfah- 
ren mit dem Namen RENT- 
A-APPLE und eine kosten- 
lose Telefonberatung mit ei- 
ner Call Free Nummer, die 
auch nach der Messe noch 
bestehen wird, wurden extra 
‘aus diesem Anlaß erstellt. Es 


werden etwa 80.000 Besucher 


erwartet, und 150.000 Ein- 
trittskarten gedruckt. Wenn 
diese Karten alle sind, ist der 


Eintritt frei: und ‚jeder weitere 


in 
ätzlichen Anreiz zum 
der Messe wird jeden 


€ Geschäftsleitung ist vom 
rfolg dieser einmaligen 


" Werbeaktion so überzeugt, 


daß die Apple Expo 85 schon 
geplant ist. Der Eintritt be- 
trägt 8,- DM und ist für Besu- 
cher der Orgatechnik völlig 
kostenlos. Mit Spannung ist 
die Vorstellung des Macin- 
tosh 512, des BTX-Modem, 
sowie der neuesten Software- 
pakete aus Amerika zu er- 
warten. Aber am besten ist, 
sie gehen einfach einmal hin 
und sehen sich an, was Apple 
zu bieten hat. 

(tm) 


EPU 65 - 


Sehr geehrte Redakteure in der Jugend-Redaktion, 


daß Sie in Ihren Sendungen Computer-Zeitschriften vorstellen, finden wirnicht schlecht. Im 
Gegenteil: kompetente Kaufberatungistim Sinne der Leserund darum auch von denjenigen 
zu begrüßen, die gute Magazine machen wollen... 


Was sich allerdings in letzter Zeit unter dem Deckmäntelchen des gut gemeinten Ratschla- 
ges eingeschlichen hat, kann die Attribute Fairness und Verantwortung keinesfalls für 
sich verbuchen. 


Wenn beispielsweise ”Computer-Freaky” zur besten Sendezeit (und nicht etwa im Werbe- 
fernsehen, wo Detund seine Freunde das Sagen haben) auf den Bildschirm gerudert kommt 
und eine ”Computer-Zeitung” anpreist, als deren einziges Verkaufsargument ein niedriger 
Preis ins Feld geführt wird, so kann man so etwas nur als ”unlautere Parteinahme”, ”Ein- 
seitigkeit” und ”übelste Schleichwerbung” bezeichnen. 

Solche Entgleisungen sind schon bei privaten Fernsehsystemen abzulehnen, obwohl man 
denen als mildernde Umstände wenigstens die Abhängigkeit von einem allmächtigen 
Sponsor anrechnen kann. Einer ”öffentlich-rechtlichen” Anstalt kann der objektive und ge- 
rechte Beobachter derartige Machenschaften auf keinen Fall nachsehen. 


Um Ihnen aber wohlwollend die Möglichkeit zur Selbsterkenntnis und reumütigen Umkehr 
zu geben, möchten wir im folgenden Ihre Argumente aufgreifen, die Sie im Gespräch mit ei- 
nem unserer Redakteure als Motive Ihres Handelns nannten... 


Wir stellen ausschließlich Zeitschriften vor, die nicht mehr als fünf 
Mark kosten, da die Leser hauptsächlich Schüler sind. 


Dem unbedarften Zeitgenossen mag eine solche Äußerung als sozial und solidarisch mit fi- 
nanziell Schwachgestellten erscheinen. Wie borniert sie tatsächlich ist, läßt sich anhand 
weniger Beispiele schnell an den Tag bringen: 

Wasistmitden Unterhaltungssendungen, den Hitparaden in Funk und Fernsehen? Es istge- 
radezu ausbeuterisch, jungen Menschen auf den einen oder anderen Titel Appetit zu 
machen, wo doch jeder Zehnjährige weiß, daß es für einen Fünfer keine aktuelle Schallplat- 
tenaufnahme mehr gibt. 

Und wenn Sie sich, liebe Redakteure der Jugendabteilung des ZDF, einmal vom Schreib- 
tisch erheben und in die Mainzer Innenstadt bemühen, so werden Sie mit Entsetzen fest- 
stellen, für wieviele Video-Kassetten junge Menschen mehr als den zitierten Betrag 
zahlen. ; 

Stellen Sie sich vor die Kino-Kassen und sehen Sie mit an, wie Hunderte von Jugendlichen 
acht bis zehn Mark für eineinhalb Stunden ”Neuen Deutschen Film” berappen müssen, der 
von ihren Eltern per Steuergroschen ohnehin vorfinanziert wurde. 

Undleisten Sie sich bitte nicht die Schizophrenie, einerseits die Fünf-Mark-Grenze alseben- 
so heilig zu nehmen, wie es die Kollegen der ARD-Fernsehlotterie seit Jahrzehnten tun, 
andererseits aber Comic-Hefte vorzustellen, die monatlich runde sieben Mark dem jugend- 
lichen Portemonnaie entziehen (gesehen u.a. am 22.09.84 im ZDF-Kinderprogramm). 


Ein weiterer Punkt zum Nachdenken ist die Tatsache, daß auch jenseits der berühmten 
Fünfmarkgrenze Preis und Leistungeine glückliche Verbindung eingehen können. Schließlich 
verlangen,ja auch die Damen und Herren der GEZ Monat für Monat fast das Dreifache des- 
sen, was Sie für zumutbar halten. 
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Die Konkurrenz reagiert auf Freaky oder die Computer-Corner nur 
deshalb so empfindlich, weileigene Zeitschriften nicht vorgestellt wur- 
den. 


Niemand bestreitet, daß die von Ihnen vorgestellte Computer-Zeitung für ihren Preis eine 
gute Gegenleistung bringt. 

Deshalb aber die Ansicht zu vertreten, eine teuerere Zeitschrift müsse somit überbezahlt 
sein, ist nicht nur lächerlich, sondern überdies auch höchst unbillig. 

Wennich 1 Kilo Kartoffeln für dreiMark bekomme, so heißt das Ihren Rechenregeln zufolge, 
daß die Erdäpfel im 5-Kilo-Beutel zu zehn Mark ein vergleichsweise kostspieliges Vergnü- 
gen sind. 

Im Mathematik-Unterricht der Grundschule lernt ein Mitteleuropäer jedoch, daß er beim 
zweitgenannten Angebot pro Kilo eine Mark sparen kann. Und was für die Kartoffeln un- 
seres Beispieles gilt, läßt sich auch auf beliebige andere Erzeugnisse übertragen — auch 
Computer-Magazine. 7 

Deshalb ist die Bemerkung Freaky’s ganz einfach blöde: ”Die... ist gut gemacht und kostet 
nur 1,80”-Die berühmte 2CV-Ente von Citroen ist auch "gut gemacht”, was allerdings nicht 
bedeutet, daß Mercedes-Käufer für ihr Geld Schrott erhalten. 


Freaky gibt die Ansicht der Redaktion wieder und bedeutet so Infor- 
mation für den Zuschauer. 


Information ist ein einseitiger Werbe-Spot im Abendprogramm (ohnehin verboten im 
.öffentlich-rechtlichen Fernsehen) fürwahrnicht. DerZuschauer darfsich somitnichtals der 
Belehrte, sondern Genarrte fühlen. 

Information wurde ausdrücklich angekündigt. Dazu wäre es abernötig gewesen, von den mehr 
als vierzig konkurrierenden Titeln zumindest zehn vorzustellen, um dem Interessierten die 
Chance zu geben, ein eigenes Urteil zu bilden. Schließlich wird in unserem Land der mün- 
dige Bürger gefordert, der von den Privatmeinungen einiger weniger Fernsehjournalisten 
unabhängigist. Und da die Objektivitiätdurchaus nicht aufder Strecke bleiben sollte, hätte 
man mit den betreffenden Magazinen sehr wohl kritisch umgehen können. 

Information hätte es zum Beispiel bedeutet, wenn man Stärken wie Schwächen einzelner 
Titelnäher beschrieben hätte, wenn sich der zuständige Redaktionskollege der Aufgabe ge- 
stellt hätte, die präsentierten Zeitschriften nach Verbreitungsgrad, Programmanteilunddi- 
versen anderen Kriterien aufzuschlüsseln. DerZuschauer und Computer-Fan hätte essicher 
zu schätzen gewußt. 

Unsere Position mag der Leser unserer Magazine, der. ja zugleich auch Zuschauer des ZDF- 
Programmes ist, verstehen, wennersicheine Stiftung Warentest denkt, dieim Rahmenihrer 
Produktprüfung lediglich ein einziges Erzeugnis vorstellt und diesem in allen Testpunkten 
zwei Kreuzchen gibt. Glücklicherweise arbeitet die genannte nützliche Einrichtung nicht 
nach Ihrem Konzept. 


Aberauch Sie werden bestimmt noch lernen, was seriöser Journalismus ist. Wir werden Ihre 
Arbeit weiter verfolgen und wünschen Ihnen gute Erfolge und vor allem ein paar neue 
Erkenntnisse... 


Esules 


Dieser Epson-Drucker, wohl 
eine Mischung zwischen der 
Epson -RX und -FX Serie, 
hateine Reihe von Vorzügen, 
die bei den wenigsten Bil- 
ligdruckern zu finden sind. 
Da ist die serienmäßige Pa- 
pierseperatur, und das aus- 
führliche Handbuch (leider 
nur in englisch), genauso er- 
wähnenswert, wie seine 7 
Arbeitmodes: 

Normaldruck (max. 96 Zei- 
chen) 

Engdruck (max. 159 Zei- 
chen) 

Hervorgehobener Druck 
(max. 96 Zeichen) 
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Breitdruck (max. 48 Zei- 
chen) 

Doppelte Dichte Breitdruck 
(max. 79 Zeichen) 

Einfache Dichte-Bitimage- 
mode (max. 576 Punkt 
horizontal) 

Doppelte Dichte-Bitimage- 
mode (max. 1152. Punkt 
horizontal) 

Außerdem hat man die Aus- 
wahl zwischen 8 verschiede- 
nen Zeichensätzen, was man 
wohl auch nicht als Nachteil 
sehen kann. 

Auch wird ein Warnton aus- 
gegeben, wenn das Papier 
alle ist. 
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Der Druckkopf hat eine 
Matrix von 9x9, was ein 
sehr sauberes Druckbild 
ergibt. 

Obwohl seine Zeichensätze 
nur aus einer 5x9 Matrix be- 
steht, ist das Schriftbild wohl 
dem billigen und weitver- 
breiten Seikoscha GP100 weit 
überlegen. Mit dem hervor- 
gehobenen Druck läßt sich 
die Matrix eines Zeichens 
auf 10x9 anheben. Dieses 
kann man schon fast als Kor- 
respondenzdruck bezeich- 
nen. Die Lärmbelästigungei- 
nes Epson hält sich ebenfalls 
in Grenzen. Man kann ihn 
durchaus als leise bezeich- 
nen. Seine Geschwindigkeit 
erreicht durch Druck in bei- 
de Richtungen 80. Zeichen 
pro Sekunde, - was einer 
durchschnittlichen Leistung 
entspricht. Außerdem kann 
er auch Einzelblatt verar- 
beiten. Alle diese Optionen 
lassen sich hard- und soft- 
waremäßig einstellen. 

Meine Meinung: Zu empfeh- 
len. 
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SR 


„m % 


LT ENAAT 


PLAY THE GAME 


HALLO EINFACHER DRUCK 

HALLO ENGDRUCK 

HALLO HERVORGEHOBENER DRUCK 
HALLO  BREITDRUCK 


HAL_L_O HERVORGEHOBENER BREITDRUCK 


Nebenbei ist noch folgendes 
zu bemerken: 

Dieser Drucker ist bei uns 
seit 1982 in Betrieb. Bis jetzt 
arbeitet er einwandfrei und 
hat noch niemals Fehler ge- 
macht. Ich persönlich halte 


Epson-Drucker für die be- * 


sten 
Welt. 
Die Bedienung ist denkbar 
einfach. Weder das Einlegen 
von Papier oder Farbband, 


”Billigdrucker” der 


noch der Anschluß an den 
Computer bereitet. Schwie- 
rigkeit. So ist z.B. einstell- 
bar, ob nach einen Carrige 
Return (Enter) ein Line Feed 
gemacht werden soll. Somit 
paßt er an jedes Centronics- 
interface. 

Die Lebensdauer des Druck- 
kopfes soll bei 3 Millionen 
liegen; wahrscheinlich noch 
mehr. 

Der Drucker läßt 2 Durch- 


schläge zu, die ebenfalls, je 
nach verwendeten Kohlepa- 
pier, sehr sauber sind. 

Optional kann eine RS232 
bzw. IEEE 488 Schnittstelle 
eingebaut werden. Das Ge- 
wicht des MX 82 F/T liegt bei 
7kg. Die Breite von Papier 
läßt sich stufenlos von 
10,16cm bis 25,4cm einstel- 
len. Gesaimianteil - einfach 


toll. 
(3) 
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TESTBERICHT 


Spectrum-Tastatur von d’K Tronics 


Schon so'mancher Spectrum-Anwender 


hatsich beim Eintippen von Listings 


oderbei der Textverarbeitungwunde Finger geholt. 
Die Tastatur von d’K Tronics soll Abhilfe schaffen. 
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Nach dem Auspacken prä- 
sentierte sich für uns ein Zu- 
satzgerät für den Spectrum in 
gutem Design. Schwarzes 
Kunststoffgehäuse und farb- 
lich abgestimmte Tasten 
machen einen soliden Ein- 
druck. 

Der Boden der Zusatzta- 
statur ist nun aufzuschrau- 
ben und abzunehmen. Es 
kommen vorgesehene Steck- 
plätze zum Vorschein, auf 
die der Spectrum aufge- 
schraubt werden muß. Po- 
sitiv, daß auch das Netzteilin 
die Tastätur eingebaut wer- 
den kann. Jetzt kommt aber 
schon das erste, für viele 
wahrscheinlich auch größte 
Problem. Denn um den 
guten, alten Spectrum einzu- 


bauen, muß dieser ebenfalls 
aufgeschraubt werden. Doch 
damit erlischt auch gfeich- 
zeitig der Garantieanspruch, 
falls er noch besteht. 
Lediglich die Platine des ZX 
Speetrum wird benötigt. 
Der größte Vorteil ist dabei 
die bessere Kühlung, die Ta- 
statur ist innen großzügig 
gestaltet. 

Die Kabelanschlüsse werden 
durch die an der Rückseite 
der Tastatur befindlichen 
Löcher verlegt. 


Da inzwischen die Microdri- 
ves und Interface I auf dem 
Markt sind, stellt sich die 
Frage: Passen auch diese Zu- 
sätze in das Gehäuse. 

Die Antwort ist ja, um dies zu 
ermöglichen, wurden ein-- 
fach die gleichen Bohrungen 
ein Stück höher gesetzt. 
(Abb. 2) 

So, wir .haben unseren -|. 
Spectrum samt Microdrive, 
Interface 1 und Netzteil im 
Gehäuse untergebracht. 
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Jetzt schauen wir uns die ei- 
gentliche Tastatur mal etwas 
genauer an. (Abb. 1) 
Zunächst fällt der farblich 
abgesetzte Zehnerblock ins 
Auge. Der Zehnerblock be- 
steht hier aus 12 Tasten, die 
mit den Ziffern 0-9 und zu- 
sätzlich mit Delete belegt 
sind. Dies ist eine nützliche 
Einrichtung, gerade beim 
Programmieren in Maschi- 
nencode oder beim Eintip- 
pen von Data-Zeilen wird 
man den Wert eines Ziffern- 
blocks zu schätzen wissen. 
Unterhalb der QWERTY- 
Tastatur befindet sich die 
große Space-Taste, wie bei ei- 
ner Schreibmaschine. Zu- 
sätzlich zu der ansonsten 
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normalen, beim Spectrum 
bekannten Tastaturbele- 
gung haben wir neben der 
Symbol-Shift-Taste noch 
mal Caps-Shift. 

So wird es wesentlich ein- 
facher, ohne großartige Fin- 
gerverrenkung in den E- 
Modus zu schalten. 

Beim Lesen der letzten Sätze 
könnte man nun meinen, 
daß die Tastatur bereits be- 
schriftet ist. Dem ist aber 
nicht so, den blanken Tasten 
liegt eine Schablone mit Kle- 
befolie bei. Jetzt vergeht erst 
einmal geraume Zeit, die Ta- 
sten zu bekleben. 

Es empfiehlt sich, die Ta- 
statur vorher gründlich von 
Staub und eventuellen Fett- 
fingern zu säubern, da die- 
Beschriftung ansonsten ein- 
fach wieder abfällt. Hier 
wäre eine bessere Lösungan- 
gebracht, denn diese kleinen 
Folien sind nicht von allzu 
langer Lebensdauer. 


Eine Bezugsquelle für Er- 
satzschablonen konnten wir 
nicht in Erfahrung bringen. 
Doch jetzt wollen wir erst 
einmal die neuen Tasten 
”hämmern”. 

Mir erschien die Tastatur 
sehr leicht gängig, und das 
tolle: es ist ein richtiger 
Druckpunkt zu spüren. 
Auch bei längerer Text- und 
Zahleneingabe ist eine we- 
sentliche Verbesserung gegen- 
über der Radiergummi- 
Tastatur zu verzeichnen. 

In Anbetracht der Tatsache, 
daß die Tastatur sehr groß- 
flächig ausgelegt wurde, muß 
ich nur die Konstellation der 
Tasten bemängeln. 
Zwischen diesen ist nur ein 
sehr kleiner Zwischenraum, 
der bei größeren Händen zu 


kleinen Komplikationen 
führen kann, aber nicht 
muß. 


Im übrigen hätte die Hand- 
auflage der d’K Tronics Ta- 
statur flacher ausfallen kön- 
nen, der Winkel .ist doch 
recht steil. 


Fazit 


Die Zusatztastatur ist in je- 
dem Falle eine Verbesse- 
rung. Das Gerät wird kom- .| 
pakt durch den Komplettein- 
bau von Spectrum und 
Zubehör. Für professionel- 
len, also Dauereinsatz ist 
aber auch diese Tastatur nur 
bedingt geeignet. 


größtes Manko 


Es können keine Erweite- 
rungen mehr in den Ex- 
pansionsport des Spectrum 
untergebracht werden, dafür 
reichen die rückwärtigen 
Bohrungen nicht aus. 

Das Testgerät wurde uns 
freundlicherweise von der 
Firma _Mikrocomputerla- 
den, Berlin zur Verfügung 
gestellt. 


CPU 7I 


Wörterbuch 


CHARACTER GENERATOR: 
elektronischer Schaltkreis, der norma- 
lerweise im ROM untergebracht ist, 
Er hat die Aufgabe, binäre Computer- 
daten so umzuwandeln, daß die ent- 
sprechenden Zeichen und Buchstaben 


- entstehen.. Ein Zeichen ist dabei aus 


vielen Einzelpunkten entstanden. Für 
diese Darstellung ist der Character Ge- 
nerator verantwortlich. 


CURSOR: 

ein blinkender Zeiger auf dem Bild- 
schirm. Er gibt die Stelle des Bildschir- 
mes an, wo Eintragungen gemacht wer- 
den können. Der Cursor ist freibeweg- 
lich, d.h. er kann positioniert werden. 
In der Regel befinden sich auf 
Computer-Tastaturen gesonderte Cur- 
sortasten. 


FESTPLATTEN-SPEICHER 

Ein Diskettenlaufwerk (auch Floppy 
genannt) arbeitet mit auswechselbaren 
Magnetplatten und bietet eine beacht- 
liche Zugriffsgeschwindigkeit. Da aber 
stets andere Platten verwandt werden, 
fehlt es an einer optimalen Anpassung 
der Schreib-/Lese-Köpfe. Dieser Nach- 
teil wird beim Festplattenspeicher ver- 
mieden: die Magnetplatte mit hoher 
Aufzeichnungsdichte und robuster 


' Hardware-Charakteristik ist fest einge- 


baut, der Zugriffsarm sowie die 
”Tonköpfe” sind 100%ig justiert und 
liefern eine noch wesentlich höhere Zu- 
griffsgeschwindigkeit als ein Standard- 
Diskettenlaufwerk. Man unterscheidet 
darüber hinaus noch zwischen Ein- 
und Mehrplatten-Systemen, wobei bis 
zu sechs übereinander liegende Schei- 
ben als Speicherelemente dienen. Die 
Kapazität liegt zwischen 1 MB (Single- 
Disk) und etwa 500 MB (Sechsplatten- 
Laufwerk). Bekanntestes System ist die 
Winchester-Drive. 


REDUNDANZ 2 

bedeutet eigentlich ”Überfluß”. Wenn 
Computerfachleute diesen Begriff be- 
nutzen, meinen sie die mehrfache Ver- 
wendung von Daten, ‚um größtmög- 
liche Sicherheit beim Übertragen von 
Informationen zu erhalten. 

Das System ist an sich gar nicht neu: 
Wir Menschen benutzen es seit Jahr- 
tausenden in unserer Sprache. Man 
kann sich das leicht dadurch verdeut- 
lichen, daß man sich einzelne Wörter 
oder auch ganze Sätze aufschreibt und 
anschließend ein paar Buchstaben her- 
ausstreicht. Nehmen Sie zum Beispiel 
den folgenden kleinen Satz: En 
Cmpuer chnt schnll un icher. - Nach 
kurzem Überlegen werden Sie sicher 
auf seine Bedeutung kommen, näm- 
lich "Ein Computer rechnet schnell 
und sicher‘. Würden wir durch unsere 
Sprache Informationen nicht redun- 
dant übertragen, wäre es nie möglich, 
ein nicht komplettes Wort sinngemäß 
zu ergänzen. 


MONITOR 

ist ein lateinisches Wort und bedeutet 
"Kritiker", "Mahner”, "Warner": in der 
Technik bezeichnet es zunächst ein 
Bildschirmgerät (ohne TV-Empfangs- 
teil), auf dem Arbeitsabläufe kontrol- 
liert und überwacht werden können. 
Diese Funktion ist sicher auch heute 
noch voll gültig. Seit es allerdings Com- 
puter gibt, hat der Begriffnoch eine Zu- 
satzbedeutung erlangt: er steht für ein 
Programm, das den Ablauf anderer 
Programme selbstständig steuert und 
überwacht - also eine ähnliche 
Funktion ausübt, wie derjenige Mensch; 
der vor dem Bildschirmgerät ”Monitor” 
sitzt. 


HEAD CRASH E 

bedeutet soviel wie "Kopf-Zusammen- 
stoß” und meint den Fall, daß ein 
Schreib-/Lesekopf aufgrund man- 
gelhafter Justierung:die Oberfläche ei- 
ner Magnetplatte berührt und somit zu 
erheblichen Schäden des Speicherme- 
diums führt. 


CP/M: 

eines der weitverbreitesten Betriebssy- 
steme bei Personal-Computern. CP/M 
wurde 1976. von Digital Research ent- 
wickeltund kann heute aufeine fast un- 
überschaubare Softwarepalette zu- 
greifen. CP/M steht für "Control Pro- 
gram für Mikrocomputer”, 


ON-LINE/OFF-LINE 


" sind zwei Begriffe, die uns beim Um- 


gang mit dem Computer immer wieder 
begegnen. Sie bezeichnen die Art, wie 
ein Peripheriegerät betrieben wird: ver- 
bunden oder getrennt vom Computer. 
Dazu ein Beispiel: Sie benutzen eine 
elektronische Schreibmaschine als 
Ein-/Ausgabe-Einheit für Ihren Rech- 
ner. Wenn Sie sich nun an das Gerät 
setzen und einen Brief schreiben, ar- 
beiten Sie off-line, wenn der Computer 
nicht mit im Spiel ist. Sie sprechen hin- 
gegen von on-line, wenn Ihr Rechner 
die Schreibmaschine als Schönschreib- 
drucker nutzt. 


NESTING 

ist der Fachausdruck der Computer- 
Spezialisten für das Verschachteln von 
Programmteilen. Typisches Beispiel: 
mehrere Schleifen. 


QUASI-KOMPILIERUNG 

Manche Basic-Versionen arbeiten- 
nach diesem Prinzip, das einen Com- 
piler (siehe auch dort) simuliert. Jede 
einzelne Eingabe wird dabei überprüft 
und intern rationell umgewandelt. Vor- 
teile sind: a) weniger Speicherbedarf, 
b) schnellere Abarbeitung des so ver- 
kürzten Programmes, c) geringere Lei- 
stungsansprüche in Sachen Interpreter. 
Auf Editierfunktionen kann Weitest- 
gehend verzichtet werden, da die An- 
fangskontrolle eine umständliche Kor- 


BALKEN-CODE 

ist ein Schlüssel aus verschiedenen 

dicken Strichen, der zur Produktkenn-* 
zeichnung benutzt und auf Waren- 

packungen gedruckt wird. Mit einem 

Lesestift (vgl. auch dort) kann die so ge- 

speicherte Information in ein Rechensy- 

stem übertragen werden. 
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BIETE AN SOFTWARE 


TI-99/4A: Bundesliga und andere 
TI-Programme. Info gegen Rückporto. 
B. Knedel, Tulpengasse 16, 

3171 Weyhausen, ®05362/71187 


Interessante Denkspiele und An- 
wenderprogramme für ZX-Spectrum. 
Kostenloses Info anfordern bei: 
Friedrich Neuper, 8473 Pfreimd 


Amateurfunk — u.a. andere Programme für 
ZX-81 und Spectrum. Ausführliche Liste 
gegen Rückporto. Michael Schramm, 
Freiligrathstraße 5, 2300 Kiel 1 


TI-99/4A: Riesenauswahl an Soft- 
ware + Modulen aus USA zu Super- 
preisen. Info gegen DM 1,-: Riegert, 
7324 Rechberghausen, Schlosshof 5 


VZ 200/Laser 210/310 Superspiele 
— Uste bel: E. Jurschitza, 
Ellensindstr. 7A, 8900 Augsburg 21 


Lernprogramme für VC-64 + TI 
(z.B. Mathematik, Elektronik, Bio), Paedco, 
Postfach 2021, 4057 Brüggen 2 


*LOAD ZX-81% lädt jedes ZX-81 Prog. 
mit Variablen In jeden SPECTRUM. 
Die meisten Basic-Programme sind 
sofort lauffähig. Info anfordern 
oder sofort bestellen: DM 39,- 
Michael Naujoks, Rottmannstraße 40, 
6900 Heidelberg, ©06221/46885 


TOP SOFTWARE FÜR TOPMICROS 
CBM 64, VC-20, ZX-Spectrum, ZX-81, Orlc, 
Memotech, CPG 464, Dragon 
‚Auch Hardware! Händleranfragen erwünscht! 
Rückporto von 2,- DM beilegen 
Windmill Software, Herzog-Franz-Str. 12, 
3170 Gifhorn, @(05371) 58367 


‚Apple Il: E.T: (Alleslerner), u.a. 
$. Tamm, Solmsstr. 43, 1 Berlin 61 


%%% Musik-Schreibmaschine A %% 
Neu — Test: Happy Comp. 8/84 - neu 
Spectrum 48 (16)K 
Notenschrit - nach Musiktheorie! 
- mit "Balken" - Gleichz. mit Ton! 
16 Musikstücke — 254 Takte = Compo- 
nieren, ZX Drucken + Transponieren! 
nur DM 59,-/ SFr 49,- 

% SOFT MUSIC % B. Mikolasek, Dipl. Ing. 
CH-8112 Otelfingen, @00411/8442300 
2 2 2 2 222 2 2 2 2 2.007 


\ SUPERTIPI! 

ZX-Spectrum (48K)+Ber Packung Software* 
*Chequered Flag, Chess, Scrabble, Horace 
goes Skiing, Survival, Make a Chip! 
Superpreisi! Komplett 465,- DM! 

Nur bei Windmill Software, 
Herzog-Franz-Str. 12, 3170 Githorn, 
©(05371) 58367 
Auch telefonisch bestellbar! 

Wir haben über 700 Titel im Programm — 
für jeimcomputer. 
Händleranfragen erwünscht! 


An GPU 
Fuldaerstraße 6 
3440 Eschwege 


BIETE AN HARDWARE 


Computer + Zubehör + Software - aus 
einer Hand, Liste gegen Rückporto 
bei Computerversand Filke, 
Weidendamm 5, 3167 Burgdorf 2 


Kleinanzeigen — 
für jeden etwas 
Software — Hardware 


Leser -GPU- Leser 
die Kombination 


TI-99/4A +Ext.Basic+ Recorder+ Kabel 
+ Joystick + Modul Alpiner + Software 
z.B. Flugsim., Moonpatrol, Maga u.a. + 3 


Bücher u.a. VB 750,- @0221/394854 


Verkaufe Drucker + Kabel 
Zillner Axel, @A-06502/3238 


T1-99/4A + Kass.Rek. + Module: Fußball, 
Defender, Attack, Adventure 
4 Abenteuerspiele. Auch einzeln 
zu verkaufen. Albert Krüger, 
Schützenstraße 19, 3152 Iisede 4 


ACHTUNG! 


Name und Adresse 


GEBEN SIE BITTE BEI ALLEN ZAHLUNGEN UNBEDINGT DIE GENAUE RECHNUNGSNUMMER AN. 
Auftrag für Gelegenheitsanzeigen in GPU 


Abo.-Nr. 


x 
Ara hah 
Soft- & Hardware für CBM Rechner 
Olympia Typenradschr. 1198,-- 
Doppellauf Floppy 2698,-- 
Parallelinterf.f.1541 185,-- 
32K RAM Karte schaltb. 179-- 
‚Akustik-Koppler ab. 498,-- 
Teleterm mit Schnittst. 198,-- 


Toolkit 64 98,-- 
Weitere Soft- und Hardware in 
unserem Katalog. Anfordern bei 

Flesch Elektronik 
Lippspringerstraße 14, 
4650 Gelsenkirchen 
©0209/395447 

Ark 


TAUSCH 


Tausche TI-99/4A Ext. Basic gegen 
6-84, ©06127/2881 


Auch kleine Anzeigen 
bringen große Erfolge 


Ze ze 
any 


Unterschrift Ich zahle sofort nach Rechnungserhalt Datum 


Unter der Rubrik “Kleinanzeigen” 
veröffentlichen wir Gele- 
genheitsanzeigen für Verkaufsan- 
gebote, Kauf- und Tauschgesuche, 
Kontaktaufnahme bzw. Erfah- 
rungsaustausch usw. 


Ich wünsche folgenden Text zu veröffentlichen: 


Preise für “Kleinanzeigen”: 

Private Kleinanzeige je Druckzeile 
5,- DM inkl. MwSt. Chiffregebühr je 
Anzeige 10,- DM. 


Gewerbliche Gelegenheitsanzeige 
je Druckzeile 10,- DM Inkl. MwSt. 
(dürfen nicht unter Chiffre er- 

scheinen). 


Gewerbliche Gelegenheitsanzeige 
in der Kombination 
GPU/Homecomputer je Druckzeile r 2 
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15,- DM Zutreffendes ankreuzen suche DO Software D Tausch 
(Chiffre nicht möglich). biete an [I] Software DO Kontakte 
suche DI] Hardware DO Verschiedenes 


biete an DI Hardware 


DO Chiffre 


CPU 73 


Kein monatlicher "Kaltstart” am Kiosk ... 


... GPU im Abo! 


Gleich ausfüllen und senden an: 
Verlagsunion, Friedrich-Bergiusstraße 20 Postfach 5707, 6200 Wieshaden 


Garantie 


ich möchte GPU ab der n erreichbaren Ausgabe zum günstigen 
Abonnementspreis von 5 A für 12 Ausgaben, monatlich ins Haus Wir senden Ihnen 
en Same CPU regelmäßig ab der nächster- 
reichbaren Ausgabe zu. 
r 
_ Die Lieferung erfolgt frei Haus 
Inclusive Mehrwertsteuer und 


S 


te] 


Unser Softwareversand bietet Ih- 
nen zu wirklich einmalig günstigen 
Preisen jeden Monat die neuesten 
Programme (zu den bereits in frü- 
heren Ausgaben veröffentlichten), 
auf Kassette bzw. Diskette an. 
Wenn Sie die hier aufgeführten 
Bedingungen beachten, können 
auch Sie von unserem Angebot 
Gebrauch machen. 


Bestellungen Inland: 


Gegen Einsendung eines 
Schecks oder Vorauszahlungauf 
unser Konto bei der Kreisspar- 
kasse Eschwege, 

Bankleitzahl 522 500 30 

Kto.-Nr. 45 22 934 

senden wir Ihnen die gewünsch- 
ten Programme schnellstmög- 
lich zu. Geben Sie bitte unbe- 
dingt die genaue Bezeichnung 
der Kassette (z.B. CPU 1/84 TI- 
99/4A) und des Computers an. 


Bestellungen Ausland: 


Nur Vorauskasse, Schein 
(Kassette 10.- DM. Diskette 20.- 
DM). Keine Schecks oder Über- 
weisungen! 


Lieferung noch nicht erhalten? 


Bei Überweisung aufunser Kon- 
to kann es bis zu 2 Wochen 
dauern. bis wir Ihre Bestellungin 
Händen haben. 

Oft passiert es. daß auf der Über- 
weisungsdurchschrift weder Na- 
me. noch Ort. noch Art der Be- 
stellung zu erkennen sind. 
Schreiben Sie uns! (Anrufe 
kosten viel Geld und bringen. 
weil dann Schriftvergleiche nicht 
möglich sind. kein Ergebnis)!. 


Kassettenservice 


Wenn es bei uns besonders hek- 
tisch zugeht. dann kann esschon 
mal passieren. daß es mit der Lie- 


ferung etwas länger dauert. Ver- 
gessen Sie bitte nicht: Der Kas- 
settenservice ist ein zusätzlicher 
Service von uns. der Ihnen, dem 
Leser. Tipparbeiten ersparen 
soll (Sie kennen den Versuch 
einer anderen Zeitschrift, dieses 
per Lichtgriffel zu ermöglichen). 
Wir tun unser möglichstes. Aber 
Pannen sind nie ausgeschlossen. 
Bitte haben Sie in solchen Fäl- 
len Verständnis. 


aus GPU 11/84 


VC-20 
Froschfänger 
Rallye 


Commodore 64 
Pink  Panter 
Neutrale Zone 


ZX-81 
Kegeln 
Romme 


ZX Spectrum 
Moonpatrol 
Extended Basic 
Testbildgenerator 


TI-99/4A 

Punkte plotten 
Säulendiagramm 
Planetenverteidigung 


K 12,-DM 


Bit-90 K 10,-DM 
Das Grab des Pharao 

Atari K 10,-DM 
Maze Man 

Sharp MZ-700 K10,-DM 
Superhirn 

Laser K 10,-DM 
Defender 

Apple K 10,-DM 
Jupiter Lander D 16,-DM 


J.Weilharter 
Spaß mit Algorithmen 


Das von J. Weilharter geschriebene 
Buch "Spaß mit Algorithmen” ver- 
sucht, den Leser auf unterhaltsame 
Weise in die "trockene" Materie des 
strukturierten Programmierens einzu- 
führen. Neben lustigen Zeichnungen, 
die den Text auflockern, gelingt es dem 
Autor mit einer großzügigen und über- 
sichtlichen Kapitelgliederung, dem 
Leser den Prozeß des Programmierens 
anschaulich zu machen. In jedem Bei- 
spiel wird von der konkreten Problem- 
stellung ausgegangen. Diese Problem- 
stellung wird einer Analyse unterwor- 
fen. Dabei wird der übliche mathema- 
tische Formalismus nicht außer acht 
gelassen. Zusätzlich findet man gut 
dokumentierte Programmablaufpläne 
und Struktogramme: daran anschlie- 
Bend den Programmcode in BASIC 
und die Druckausgabe eines Probe- 
laufs. 

In derlockeren Art von Weilharts Buch 
werden diese Eckpfeiler des Program- 
mierens, wird das Problemlösen zu ei- 
ner kurzweiligen Angelegenheit: Der 
"Spaß mit Algorithmen” wird zu einem 
Spaß an der eigenen Fähigkeit. al- 
gorithmisch zu denken. 

Der Text richtet sich an Micro- 
computer-Hobbyisten, Schüler der 
Sekundarstufe II und auch an die Erst- 
semester der Mathematik und Infor- 
matik. 

Die Daten: Vieweg, 1. Aufl. 1984. 216 S., 
36.- DM. ISBN 3-528-04281-8 


Harald Schumny 
17 Spiele für den 
PC-1500 


Spielen im Dialog mit dem Mikrocom- 
puter ist ein unterhaltsamer und kurz- 
weiliger Zeitvertreib. Das spielerische 
Moment und die damit verbundene 
Motivation, zum selbstständigen Pro- 
grammieren zu gelangen, findet neben 
der ernsthaften, technisch-wissenschaft- 
lichen Anwendungsprogrammierung 
immer mehr Verbreitung. Jedoch kann 
es beim Spielen mit dem Mikrocom- 
puter nicht darum gehen. Programme 
einfach nur zu kaufen und zu überneh- 
men. Vielmehr sollten die Programme 
entweder selbstständig oder aber mit 
Hilfe von Vorlagen und Beispielen 
(Programmlistings) eigenständig ent- 
wickelt sein. Ebenso kann die Verwen- 
dung einzelner Programm-Module 
ohne Zweifel eine Erleichterung und 
Anregung bieten. 

In der Programmbibliothek Mik- 
rocomputer, die von Harald Schumny 
herausgegeben wird. findet man Pro- 
gramme, die mit dieser Intension ge- 
schrieben wurden. In den Bänden 7. 12 
und 13 finden Spiele ganz besondere 
Berücksichtigung. Der Leser wird über 
eine ausführliche Beschreibung des 
Spielablaufs, die algorithmische Erfas- 
sung, das Programmlisting und den 
sich anschließenden Probeablauf zum 
selbstständigen Programmieren an- 
geregt und angeleitet. Veränderungen, 
Verbesserungen und Weiterentwicklun- 
gen der einzelnen Programme sind 
erwünscht. 

Aus diesen Programmsammlungen 
wurden Spielprogramme fürden Sharp 
PC-1500 A herausgesucht und zum 
Spielen bereit gestellt. Die Programme 
wurden von Thomas Kwasniok und 
von R. Jumpertz sowie F. G. Klimek 
erstellt. 

Mittlerweile stehen in der Reihe "Pro- 
grammbibliothek Mikrocomputer"! 
dem Benutzer des attraktiven Hand 
computers Sharp PC-1500 A über 5 
sorgfältig ausgearbeitete Programm 
zur Verfügung. 

Die Daten: Vieweg. 1. Aufl. 1984, 122 
14.80 DM. ISBN 3-528-04298-2 


Neue Bücher für Laser-Heimcomputer 


Zwe'ı Bücher für die Laser-Home- 
computer 110/210/310 und VZ-200 sind 
neu erschienen 

Das Software-Svstem Handbuch be- 
schäftigt sich vorwiegend mit Befehlen 
und Problemen. die im Basic-Hand- 
buch bisher nicht erklärt werden. 
Gute Dokumentation und leichte Ver- 
ständlichkeit lassen das Buch für jeden 
Laser-Anwender interessant werden 
Neben vielen Programmtips und Er- 
läuterungen zum Maschinencode fin- 
der auch dokumentierte Schaltpläne 
in diesem Buch besonderes Augen- 


merk 


Für Maschinencoode-Programmierer 
nd Hardware-Spezialisten dürfte 
wohl das ROM-Listing in Buchform 
wesentliches Utensil sein. 
Das Buch zeichnet sich durch gute 
Kommentation aus und ist ebenfalls 
für alle Laser-Versionen geschrieben 
Beide Bücher sind über den Fachhan- 
del zu bezeichnen 
Die Daten: Sanyo Video Vertrieb 
(Hamburg) 1984,98 Seiten. BDM 35.--, 
ROM-Listing DM 55.-- 

sr 


Maschinencode-Handbuch für den ZX-Spectrum 


Für viele Spectrum-Anwender ist ia 
Maschinensprache noch immer ein 
Buch mit sieben Siegeln. 
Dieses Buch verschafft jedem einen Ein- 
blick in die Welt des Z-80 Mikroprozes- 
sors und seiner Programmierung. 
Dabei wurde auf überflüssige techni- 
sche Erläuterungen verzichtet, dafür 
in seinem Inhalt und Aufbau leicht ver- 
ständlicher Text gebracht. 
Der Bezug zum Basic wurde sehr guter- 
läutert, so daß die doch sehr schwie- 
rige Assemblersprache etwas durch- 
sichtiger wird. 
Das Buch enthält neben dem koimplet- 
ten Z-80 Befehlssatz auch eine Dez/ 
Hex Umrechnungstabelle. 
Dem Maschinensprache-Einsteiger 
wird dieses Buch viel Freude bereiten. 
Die Daten: Profisoft 1983, 76 Seiten, 
ISBN 3-923985-02-9 

(sr) 


nd 


R. A. King 
Das IBM PC-DOS 
Handbuch 


Für die Besitzer des IBM-PC. die eine 
Beschreibung des Betriebssystems 
suchen, die über das hinausgeht. was 
das IBM-Handbuch zu bieten hat, und 
ihr Betriebssystem sowohl auf System- 
ebene alsauch auf Anwenderebene voll 
ausnutzen wollen. Das bedingt gewisse 
Vorkenntnisse im Computerbereich. 
Für Anfänger ist das Buch daher nicht 
unbedingt geeignet. 

Eine Beschreibung des PC-DOS so- 
wohl auf System- als auch auf Anwen- 
derebene. Die Unterprogramme des 
Betriebssystems und das Zusammen- 
spiel mit dem ROM-BIOS sind ausführ- 
lich erläutert. Zeichenausgabe auf die 
verschiedenen Bildschirme und den 
Drucker sowie die Programmierung 
und der Anschluß der seriellen Schnitt- 
stelle werden behandelt, ebenso wie die 
Organisation des Speicherplatzes so- 
wohl im Computer als auch auf Disket- 
ten der verschiedenen Formate und der 
Festplatte. Besonders ausführlich wer- 
den die neuen erweiterten Mög- 
lichkeiten der Version 2.0 des PC-DOS 
dargestellt. 

Dieses Buch ermöglicht eine Benutzung 
des Betriebssystems, die in ihrer Ef- 
fektivität über das hinausgeht, was 
durch alleiniges Studium der IBM- 
Handbücher zu erzielen wäre, und gibt 
einen tiefen Einblick in die Funktions- 
weise des PC-DOS. 

Die Daten: Sybex, 1. Aufl. 1984, 320 S., 
54,- DM, ISBN 3-88745-034-5 


Berichte 


CFA ’84 
vom 


6.-8. September 84 


mo. Vom 6.-8. 1984 stand die Messe des 
"tere c'. Marktführers im Microcomputer- 
“nme bereich "Commodore” im Blick- 
punkt der Öffentlichkeit. Die bis- 

lang einzige Ausstellung "eines 
DV-Unternehmens”, so Werbetext 
Commodore, sollte alle bisherigen 
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Ergebnisse übertreffen. 


Ihre CPU war natürlich auch 
diesmal für Sie in Frankfurt. 
Wir haben uns für Sie um- 
gehört und umgesehen, 
gleichfalls konnte die brand- 
neue Zeitschrift für Commo- 
dore-User "Compute mit” 
des Roeske-Verlages dem 
Publikum vorgestellt wer- 
den. Hierbei handelt es sich 
um ein wöchentliches Maga- 
zin für Commodore Freaks, 
von dem 10.000 Exemplare 
der Erstausgabe in kürzester 
Zeit an den Mann gebracht 
wurden. Folgen Sie uns ei- 
nem Rundgang über das 
Messegelände: 

Auf über 4000qm? Ausstel- 
lungsfläche konnten die 
Neuheiten an Soft- und 
Hardware begutachtet wer- 
den. Der Commodore-Stand 
war natürlich besonders um- 
lagert. Hier konnten die un- 
terschiedlichen Rechner für 
Privatanwender, Klein- und 
Mittelbetriebe bestaunt und 
fachlich begutachtet wer- 
den. 


Verlosungen und Work- 
shops hielten die Zuschauer 
bei guter Laune und ver- 
tieften die Kenntnisse. 

So fanden u.a. die Vorträge 
von Jim Butterfield (Toron- 
to) über die neuen Geräte 
I-116, C-16 und plus/4 und 
Horst Labusch über Com- 
modore-Assembler reges 
Interesse. 

Von besonderer Bedeutung 
waren auch die Beiträge 
über Anschlußmöglichkei- 
ten der Computer an BTX, 
Teletex und DFU. 

Neben diesen Entwicklun- 
gen standen die Softwarepro- 
gramme für die Heimcom- 
puter für viele Besucher an 
erster Stelle. 

Die neuesten Hits aus den 
USA, England und der BRD 
wurden präsentiert. Die 
Schwerpunkte im Software- 
markt liegen eindeutig bei 
Lern- und Anwendungssoft- 
ware, Spielprogramme sind 
nur in entsprechender Qua- 
lität gefragt. 
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Reges Interesse fand das 
Keyboard der Firma Wersi, 
das in Verbindung mit ei- 
nem C-64 als Synthesizerta- 
statur gespielt werden kann. 
Hier wird es auf dem Gebiet 
der Synthesizer-Software 
noch einige Überraschungen 
geben, wie die Firma Orgel- 
Schmidt dies bereits andeu- 
tete. 

Adcomp Datensysteme aus 
München präsentierten ne- 
ben vielen anderen Features 
für Profis und Semi-Profis 
auch ihr Produkt "64+", ein 
Steckmodul, das nicht nur 
den C-64-Befehlssatz er- 
weitert, sondern gleichzeitig 
einen IEEE-488 Bus bietet. 
Aztec-Software präsentierte 
das Sprachmodul "Speak- 
sy”, das mit beliebig vielen 
Vokabeln gespeist werden 
kann. Eine echte Konkur- 
renz also zum Modul der eng- 
lischen Firma Churrah. 
Regelrechte Sprachkurse am 
Computer wurden von der 
Firma SM vorgestellt, hier 
werden die zu erlernenden 
Sprachen in psychologischer 
Form nähergebracht. Kurse 
für Italienisch, Englisch, 
Spanisch und Französisch 
sind bereits im Handel. 
Groß war das Angebot der 
verschiedenen Software- 
Häuser. KINGSOFT aus 
Roetgen bei Aachen war mit 
”Zaga” vertreten, einem Vi- 
deospiel der allerjüngsten 
Generation: 60K reine Ma- 
schinensprache, fast schon 
zu realistische 3D-Grafik 
und ein Sound, der alle Regi- 
ster moderner Heimcom- 
puter zieht. 


Aus Schweden kam 'handic- 
software’, bekannt durch das 
Finanzplanungsprogramm 
”Calcresult”” Die "ad- 
vanced” Version hat statt 
zwei nun drei Dimensionen 
(32 Seiten, 254 Zeilen, 64 
Spalten, soll jedoch minde- 
stens ebenso bediener- 
freundlich sein wie die kon- 
ventionelle Ausgabe. 


Berichte 


HANDDIC bot aber auch eine 
Menge anderer Software, vor 
allem für den Commodore 64, 
an: FORTH-64 (eine Pro- 
grammiersprache der "vier- 
ten Generation”), STAT-64 
(ein Basic-Toolkit für statisti- 
schen Einsatz), REL-64 (pro- 
grammgesteuerte Apparate- 
Kontrolle, beispielsweise für 
die Steuerung der elektri- 
schen Eisenbahn-Anlage), 
MON-64 (die "perfekte" Ter- 
minplanung für mittleres 
Management), GRAF-64 
(grafische Analyse von Glei- 
chungen) und vieles mehr. 


Wir hoffen, daß unser Rund- 
gang die gegebenen Infor- 
mationen wie auch die 
zahlreichen Bilder bei Ihnen 
so gut wie bei uns all an- 
gekommen sind, die die 4. 
CFA in Frankfurt besuch- 
ten. 

(st, sk) 


Anmerkung 
zu CPU 10/84 


In der Oktober-CPU beka- 
men Sie nicht nur einen aus- 
führlichen Testbericht zu 
Sanyo Videos LASER-Com- 
puter 2001, sondern überdies 
einige Demo-Programme frei 
Haus geliefert. Eines davon - 
die ”Lineare Optimierung”, 
wurde dem Autor freund- 
licherweise vom 


IWT-Verlag, 

Postfach 1002 43, 

8011 Vaterstetten, 
zur Verfügung gestellt. 
Bitte notieren Sie sich daher 
auf Seite 8 Ihrer CPU 10/84: 
Programm "Lineare Optimie- 
rung” aus dem Buch: ”Wirt- 
schaft auf dem Apple II/IIe” 
des IWT-Verlages. 


Der NEWMAN Beratungs-Katalog 


Rund 1.000 Angebote. Alles von COMMO- 
DORE, Sinclair, Dragon, Sharp, Spectra- 
video und anderen mit Original-Werks- 

Garantie. SOFORT LIEFERBAR. Ob Hard- 
ware, Peripherie, Bücher, Programme oder 
Zubehör, Sie erhalten alles aus einer Hand. 


Teilzahlung 
vice, BERATUN! 


technischer Ser- 


“Gutschein für 1 Katalog 


Ausfüllen, ausschneiden, auf Postkarte kleben 
und absenden. 


MG I | 


DIAUMAN Computer-Versand Postfach 50 1126, 


2000 Hamburg 50, Tel. 040/850 60 71 J 


CPU 79 


Diesesmal werden wir wieder 
zwei kurze Programme vorstel- 
len, die in der oberen Pixelweite 
einen Strich zeichnen. 


END 


1. Befehl: 

Das ORG 23760 gibt dem Assembler 
an: das Programm soll ab der Adresse 
23760 beginnen. 


2. Befehl: 
LD A,255. Dieser Befehl lädt den Akku 
mit 255 (ein Strich). 


3. Befehl: 

LD HL,16384. In das HL-Register wird 
die Anfangsadresse des Bildschirms 
geladen. 
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4. Befehl: 

LD BC,31. Dieser Befehl lädt. wie soll 
es anders sein, das BC-Register mit 
31: 


Schau | 


N 


+2 Bd I I DE HN 


(8 BYTE DER ADRESSE 16385 
—BYTE DER ADRESSE 16384 


5. Befehl: 
LD (HL), A. Im Register HL steht eine 
Adresse. In dieser Adresse soll der Wert 


des Akku gebracht werden (in Basicce HL= 16384 
Poke 16384.255). DE = 16385 
BC = 31 


Nun werden die Register HL und DE 
inkrementiert.. Das Doppelregister BC 
wird decrementiert. 


6. und 7. Befehl: 
LDD,H: LDE,L. Mit diesen beiden Be- 
fehlen wird der Wert des HL-Registers 


ins DE-Register kopiert. HL = 16385 
DE = 16386 
BC = 30 


8. Befehl: 


Nun wird geprüft, ob das BC-Register 
INC DE: (INC =Inkrementiere =+1 


den Wert "O” hat. Ist dies nicht der Fall, 
wird der Befehl wiederholt. Andern- 
falls wird der nächste Befehl ausge- 
führt. Da BC aber auf 30 steht, kommt 
9, Befehl: nur eine Wiederholung in Frage. 
LDIR. Dieser Befehl ist sehr wirkungs- 
voll. Es istein Automatikbefehlund hat 
folgende Funktionen: N 
Zuerst wird der Inhalt des HL-Register bssass “| lb] | 
zum Inhalt vom DE-Register ge- 
bracht. 


Schau 2 


BYTE MIT DER ADRESSE 16386 
BYTE MIT DER ADRESSE 1638: 
BYTE MIT DER ADRESSE 1638: 
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SOFTWARE-POWER 
FÜR SINCLAIR SPECTRUM 


UND 2X 81 


VON 


HUEBER SOFTWARE 


Hueber Software 


MAX HUEBER VERLAG Max-Hueber-Straße 4 8045 Ismaning / München Telefon 089 / 9602/1 Telex 529613 hueb d 


Dies läuftdann31mal so, weil wirin der 
Zeile 40 das BC-Register damit 
geladen hatten. 

Danach folgt der nächste Befehl. 

Ein RET. Dieser Befehl müßte bekannt 
sein. Durch ihn kommen wir wieder 
zum Basic-Interpreter zurück. 

Das folgende END ist wie das ORG für 
den Assembler gedacht. 


Nun zum 2. Programm, das genau das 
Gleiche macht, nur in einer anderen 
Vorgehensweise: 


LE 
INC HL 
DNZ LABi 
RET 
END 


Die ersten 4 Befehle: 

ORG 23760; LD A,255; LD HL,16384: 
LD B,32 dürften keine Schwierigkeiten 
machen. Es ist eine reine Initiali- 
sierungsroutine. 

Nun zum Hauptteil: 


Der 5. Befehl: 

Labl LD (HL),A: Es wird ein Label mit 
dem Namen Lab] angelegt. Jedesmal 
wenn Labl als Adresse benutzt wird. 
dann wird zu diesem Befehl gesprun- 
gen. LD (HL). A lädt in den, vom HL- 
Register adressierten Byte, den Wert 
des Akku (A-Register). 


Der 6. Befehl: 
INCHL. Auch dieser Befehl müßte be- 
kannt sein (HL=HL +1). 


Der 7. Befehl 

DJNZ Labl. Dies ist wieder ein Auto- 
matikbefehl der folgendes tut: Erdekre- 
mentiert das B-Register (B=B- 1). Da- 
nach prüft er, ob das B-Register gleich 
”0” ist. Ist das nicht der Fall, dann 
springter zu der angegebenen Adresse- 
also nach Labl. Dort führt er wieder 
den 5. Befehl aus, usw. 


FRICRAHM 1 


Ist das B-Register 0, so fährt er mit dem 
nächsten Befehl fort. Alles klar? 


Wie in der letzten CPU auch diesesmal 
die Listings in Basic zum Eintippen. 


; TO PROs+l4 
SODE A$-43-7 
ASi2I-43-Tr 


REGISTER 
BITCODE 


| 000 Foo 
ee 000 001 


Der Aufbau des Befehls LD R, R’ 


Bit Bit 6 Bit Bit 


4 Bit 


5) | H L 
010 on 100 | 101 


3 Bit. 2 m Bit 0 


er | 


Beispiel: LD A,B = 01111000 = 120 Dez. = 78 Hex 


In der nächsten Ausgabe wollen wir versuchen eine vollstän- 
dige Umrandung zu verwirklichen. Außerdem lernen wir 


ROM-Routinen zu nutzen 
(hf) 
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Ab diesem Kurs werden wir uns immer ein 
paar Befehle aussuchen und diese aus- 
führlich erklären. 


1.) LD R’R (R = Register) 

Länge des Befehls 1 Byte 
Beschreibung: 

Der Inhalt des Registers R' wird in das 
Register R kopiert. Zulässige Register 
für Rund R' werden im binären Ma- 
schinenprogramm durch folgende 
Bitkombinationen charakterisiert: 
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wöchentlich 


Compuhe mi 
COMMODORE 


4 Das unabhängige Magazin für Anwender und Interessenten von Commodore Computern 


42, 


2,80 DM 
24 65 
2,80 sf 


Programme Programme Programme Programme 
Programme Programme Programme Programme Programme Programme Programme rurınn: 


% Simons Newplot (6-64) 

Die hervorragenden Eigen- 
schaften des CBM 64 las- 
sensich nicht nur für Spie- 
le verwenden. Benutzt 
man zum Programmieren 
noch eine Basic-Hilfe wie 
Simons Basic, so ent- 
stehen solche tollen Hilfs- 
programme wie Simons 
Newplot mit dem man me- 
nuegesteuert, mathemati- 
sche Funktionen grafi 

und farbig dars 


Sie finde) 
wender 
Seite 25 


% Gold der Geister (VC-20) 
Finden Sie das Gold der 
Geister und bringen es in 
Sicherheit. 


% Light Pen (VC-20) 
Unergründlich und ver- 
schlungen sind die Wege, 
in denen Firmen die Preise 
für ihre Hardware errech- 
nen. 

Das Erweiterungen für Ih- 
ren Computer nicht teuer 
sein mil , beweisen 
wi er Ausgabe am 
eh el eines Lightpens. 
Sie finden die komplette 

Bauanleitung und Trei- 

bersoftware für VC-20 

und CBM 64 auf Seite 21 

% Jumping Painter (VG-20) 

Donkey Kong und Q-Bert 
sind tot... es lebe der Jum- 
ping Painter. 

In diesem Heft eine Kom- 
bination dieser beiden welt- 
bekannten Programme. 


Noch müssen sechs Monate ins Land ziehen, bis die Hannover- 
Messe ’85 ihre Pforten öffnen wird, doch schon heute laufen die 
Vorbereitungen auf vollen Touren. Was für uns Fans der Infor- 
mationstechnologie so alles ausgetüftelt und im April ’85 prä- 
sentiert wird, erfahren Sie schon heute, wenn Sie Seite 4 an- 
steuern. 


Besitzer einer umfangreichen 
Peripherie auf V-24-Basis 
finden mit diesem Gerät ein 
nützliches Requisit, das die 
tägliche Programmierarbeit 
wesentlich angenehmer 
macht. 

Computer und Peripherie wer- 
den gemeinsam angeschlos- 
sen und können beliebig per 
Knopfdruck gekoppelt 
werden. Schauen Sie sich das 
Kästchen auf Seite 5 mal 
an! 


In dieser Folge unseres Lehr- 
ganges für angehende Ma- 
schinensprache-Program- 
mierer dreht sich wieder alles 
um Erweiterung des Editors. 
Wenn Sie den vorliegenden 
Teil durchgearbeitet haben, 
werden Sie in der Lage sein, 
reine Assemblerlistings über 
Ihren Drucker auszugeben, 
ohne den nur begrenzt lei- 
stungsfähigen ”T”-Befehl 
einsetzen zu müssen. 


